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MODULE DIF_GETCMD ( ! Differences command processing 
Pet Tt Sette 
ADDRESSING_MODE ( EXTERNAL <GENERAL , 
NEXTERNAL=LONG_RELATIVE), 
joEnt = *v04-000' 
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ie COPYRIGHT (c) 1978 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Lic coe AND WITH THE 
:* INCLUSION OF a F oy tt COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= eeRPORAT ibe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: DCL Differences command 

i ABSTRACT: 


tn a at at a an at at ak wt at at an a at ak tt at at at at tt at at at at a ot a Ss SS Ss SS Ss 4 IA*DQDOOOOO 
- 
2 


i The DCL DIFFERENCES command compares the contents of 
two files. 
i ENVIRONMENT: 
re z VAX native, user mode 
: 
4 i 
re | AUTHOR: Peter George, Benn Schreiber CREATION DATE: 1-August-1981 
7 MODIFIED BY: 
4 i v03-003 Sa gy 34 Peter George 25-Apr-1983 
3 Set /NONUMBER when /SLP is specified. 
1 i v03-002 PCG0006 Peter George 30-Mar-1983 
‘ Use CLI keyword sb 
4 i v03-001 PC60005 Pet gorge 11-Aug-1982 
‘ Remove reference to *tulsen _PARSE. 
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59 1 ZSBTTL ‘Declarations’; $ 
LIBRARY : 
Lipaany *SYSSLIBRARY:STARLET.L32'; ! System macros 3 
ef aeeuine *SYSSLIBRARY: TPAMAC.L32'; ! TPARSE macros 3 
65 "DIFPRE'; ! DIF prefix file 3 
66 REQUIRE : 
44 "DIFDEF'; ! DIF data structures : 
+4 EXTER : 
9 dif$gl_typdata : BBLOCK, ! File type to comment delimiter info 
7 dif$gl-commdesc : BBLOCK ! Desc for buffer of comment delimiters 
7 dif$gliconmflgs : BITVECToR, i Bit flags for comment chars in col. 1 only | 
7 dif$gl_ignore OCK, ' Flags o ghorectors to ignore 
74 dif$gi_cmdesc : BBLOCK, ! Command t ne descriptor 
75 dif$gl_header, : No. of ngs to skip as header | 
7 difSgl_width, ! width of Lines in output Listing 
7 difSgl_match ! No. of records that constitute a match 
7 di f$gl-maxdif, ! Maximum number of unmatched records | 
dif$gl_merged, ! No. of matched Lines to follow each List of differences 
di teat paral iel, ! Same as above for parallel 
dif$gl_wndwsiz, ! No. of records to search before declaring a mismatch 
dif$gl_flags : BBLOCK, ! Flags | 
| 


; Input and output file data structures 
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7 
5 
difSgl_masfdb : BBLOCK, ! Master file fdb 
7 dif$gl_masdesc : BBLOCK, ! String descriptor for input file 
dif$gl_masrab : BBLOCK, ! RAB for master file 

9 difSgl_masnam : REF BBLOCK, ; pocaree to NAM block for master file 
90 dif$gl_masrss : BBLOCK, ' Resultant name string for master file 
91 dif$gl_revfdb : BBLOCK, ! Revision file f 

36 dif$gl_revdesc : BBLOCK, ! String descriptor for revision file 
9 95 dif$gl_revrab : BBLOCK, ! RAB for revision file 

94 38 dif$gl_revnam : BBLOCK, ! NAM block for revision file 

95 9 dif$gl_revrss : BBLOCK, ' Resultant name string for revision file 
5] 4 dif$gl_outifi, ! IFI of gutput file 

9 dif$gl_outdesc : BBLOCK, ! String descriptor for output file 

98 00 dif$gl_outrab : BBLOCK, ! RAB for output file 

99 01 dif$gl_outnam : BBLOCK, ! NAM block for output file 
! : 4 dif$gl_outrss : BBLOCK; ' Output file resultant name string 
1 4 R ROUT INE 
1 § 5 c hook anlans ! Get qualifier value 
1 cli$present, ' Test if que; *ter present 
105 t acye dtb ' Convert decimal to binary 
1 Lib$tind_file, ! wild-card parse/search 
1 t t_va, ! Allocate virtual memory 
1 19 LibSscopy_rdx, ; fopy a string 
1 1 Lib$tparse, ' Table driven parser 
110 i $ copy dx. } fopy string using descriptors | 
+ 17 SYSSFAO; ! Formatted ASCII output conversion 
118 15 R LITERAL 
114 1g cli$_present, ' Qualifier explicitly present 
115 1 cli$_negated, ! Qualifier explicitly negated 
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} c_maxlangs, : el telse ten in dif$gl_typdata table 
Error closing {rout file 


st 
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rror closing output file 

o print bad command Line 
Command syntax error 
Conflicting qualifiers 
RGE greater than /MATCH 

Lover version of file found 

lifier requires a value 
wild cards qa toucg 
rror opening input file 
rror opening output file 

/PARALLEL greater than /MATCH 
Error from parse 
Error from string copy 
Error from fao | 
Too many fennens delimiters 
oomnyfil, Too man neue les 
_twowidths; Both /LINE_WIDTH and /WIDTH specified 


FORWARD ROUTINE | 
' Call TPARSE | 
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4 1 

4 syntaxerr, ' Print syntax error message 

4 badvaluerr, : il heges qualifier value 

% getchbarqual, ! Get change bar qualifier 

4 west penene. ! Get file spec from FAB/NAM 

45 nitfile, ! Init RMS data to open a file 

4 difSopen_mas, ! Open master input file 

4 difSopen_rev, ! Open the revision file 

48 qi f$open. Re ! Open the output file 

49 dif$close_in, ! Close an input file 
dif$close_out, ' Close the output file 
allocate_ubf, ' Allocate user buffer for records that cross block boundari | 
find _List_width; ! Find width of Listing device if /WIDTH not specified 


sys$output : COUNTEDSTRING ('SYSSOUTPUT"), 
2 hae : REF BBLOCK, 

ate, 
tpablock : BOLOCEE tpese lengthO), 
find_context : REF BBLOTK, Context for Lib$find_file 


ftind_masfile : desc agce ! String descriptor for master input file 
PRESET Tldsc$b_class] = dsc$k_class_d); 


' Defuault output file 

' Pointer to current string descr 
' Data returned from TPARS 

Tparse block 
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LITERAL 
ffeed = 12; ! Formfeed character 
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Declare static strings for qualifier names 
BACR 
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0 
SDCA) = 
BIND ZNAME('SD_',A) = Sdescriptor(a)%; 
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Mbe2050 Declarations 12-808} 882 3: 33: 3 DIF .SRCIDIF $GEechs MOB30¢ 
: 1 P0475 1 * INPUT?" 

; ie P 26 1 + ENaNGe Bar’ 

; 125 p f "COMMENT _DELIMITERS', 
; 173 P0479 1 "LINE WIOTH', 

; 178 P 1 *MATCA® 

Bl P 1 *MAXIMUM_DIFFERENCES’, 
; 1 P 1 "MERGED"; 

: 4 P 1 "MODE 

r § : P 1 "NUMBER , 

; 3 P Oca } “PARALLEL ® 

> 185 P 1 SEPARATED!, 

A | P 1 SUP 

: 1 P 1 "WIDTH 

: 4 P 1 "WIND 

> 4 P0491 1 "BLANK tines’. 

: 4 P0492 1 *COMMERTS' 

; 191 P0493 1 FORM FEEDS", 

3 198 P0494 1 "HEADER 

3 19 P0495 1 TRAILING. SPACES’, 

> 19% P0496 | » SPACING 

> 195 P0497 1 "EXACT 

i 196 P0498 1 “PRETTY, 

; 19 P 0499 1 "ASCII 

; 198 P 0300 | *HEXADECIMAL", 

: 199 P0501 1 "OCTAL' 

; 00 P 05 ; 1 "MASTER', 

: 201 503 1 "REVISION'); 


. «co } 
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3 ZSBTTL ‘TPARSE state tables’; 


TPARSE tables to parse /COMMENT_DELIMITERS qualifier values 
SINIT_STATE (comment_delim_states,delim_keys); 
SSTATE(, 


$s 
IF 


OLON' ,tpaS_exit,,':',tpdata), 

OMMA’ ,tpoaS_exit,,'.',tp ata), 
LAMATION® pas xit,,'!',tpdata), 

M FEED: . toes. ef t., feed tpdate), 

TY tpas_ ex te ;tpdatas 

IGHT tpaf_ex fe. } -tedatas, 

EMI COLON’ ;tpa$_exit..’; ,tpdata), 

LASA’ ,tpaS_exit,,'/',tpdata), 

pare ctpesagn lege” *,tpdata), 

tpads_exit,, *, tpdata), 
a _Cambd3, ,syntaxerr) 
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4 
: TPARSE tables to parse /CHANGE_BAR qualifier value 


SINIT_STATE(Linenum_states, linenum_keys); 


SSTATE(, 
(*NUMBER® ,tpaS_exit,.1,tpdata), 
(*NONUMBER, tpa$_ex t) 
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H 4 1 ROUTINE call_tparse(string,states, keys) = : 
: $35 BEGIN : . : 
° 1 : 
: 8 é ; This routine calls tparse given the string, states and keys : 
: re re Inputs: | 
: 26 “¢ i string address of string descriptor for string to parse : 
; 2 4 ; states address of tparse states table : 
; mf: rf: keys address of tparse keys table : 
> 26 46 ; 
3 4 z MAP H 
; 248 48 string : REF BBLOCK; $ 
; 249 549 F 
3 29 550 LOCAL F 
: 1 551 status; 3 
; 26 5 § 3 
; 055 : é 
s 235 B22¢ Initialize the tparse block : 
3; 256 0356 CHSFILL( etpask.Lengthd. tpablock) ; ; 
3 gor 55 tpablock(tpa$l_count] = tpa$k_count0; 3 
3 $28 0238 tpablock(tpa$l_-options] = tpaSm_abbrev; : 
; 259 055 tpablock(tpa$l_stringcnt) = eth in ped mabey: bows : 
; so peor tpablock(tpa$l_stringptr] = .string dsc$a_pointerd; : 
; 26g b20¢ i Initialize OWN storage used F 
; $6 056 : ; 
: 264 0564 tpalindesc = .string; : 
3 so? 0565 tpdata = 0; 3 
; 266 0566 : 
; 267 0567 RETURN LibStparse(tpablock,.states,.keys) 3 
; 268 0568 ; 
; 269 0569 1 END; | : 
‘TITLE DIF GET CMD | 2 

-IDENT \v0%-000\ : 

-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 ; 

00000 ;TPASKEYSTO | ; 

4E 4F 4C 4F 43 00000 ; TPASKEYST ; 

4: ° \COLON\ : : 

FF 00005 BYTE -1 : 3 

0006 ; TPASKEYSTO : 

U.9: -BLK 0 3 

41 4D 4D 4F 43 00006 ; TPASKEYST : 

“ U.11: "ASCII \COMMA ; 

boo0e ; TPASKEYSTO , : 

U.16: .BLKB 0 3 

4E 4F 49 54 41 4D 41 4C 43 58 45 OQOOOC ; TPASKEYST : 

U.18: eASCII \EXCLAMATION\ : : 
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-BYTE 
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sxevi! 
ASCII 
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90082 1 
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53 00020 


FF 00037 
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53 00038 


FF 00030 
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FF 00043 
00044 ; 
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; TPASKEYSTO 


S TPASKEYST 
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.BY 
; TPASKEYSTO 
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U.88: .BYTE 
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DIF .SRCID GETCMD 


“1 
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\FORM_FEED\ 
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pate 
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-LIBSSTATES,NOWRT, SHR, 


00000 COMMENT ~DEL IB STATES: : 


00000 ; TPASTYPE 
U.5: - WORD 


28928 


0-74 
“B32; 


PIC,1 
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eens —_ 
voez000 TPARSE state tables 
00000000* 

00 00 00 3A 
FFFF 

7101 
00000000* 

00 00 00 2c 
FFFF 

7102 
00000000* 

00 00 00 21 
FFFF 

7103 
00000000* 
0000000C 

FFFF 

7104 
00000000* 

00 00 00 5B 
FFFF 

7105 
00000000* 

00 00 00 5D 
FFFF 

7106 
00000000* 

00 00 00 38 
FFFF 

7107 
00000000* 
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00002 
00006 
Q000A 
0000C 
0000€ 
00012 
00016 
00018 
QOO1A 
OO01E 
00022 
00024 
00026 
0002A 
0002E 
00030 
00032 
00036 
Q003A 
0003¢ 
0003E 
00042 
00046 
00048 
0004A 
0004E 
00052 
00054 
00056 


; TPASADDR 


U.6: LONG 
3 TPASMAS 
U.?7: ASCII 
; TPASTARGET 
U.8: WORD 
; TPASTYPE 
U.12: WORD 
; TPASADDR 
U.13: LONG 
3 TPASMASK 
U.14: ASCII 
3 TPASTARGET 
U.15: ~ WORD 
3 TPASTYPE 
U.19: ~ WORD 
3; TPASADDR 
U.20: ~ LONG 
3; TPASMASK 
U.21: ASCII 
3 TPASTARGET 
U.22: - WORD 
; TPASTYPE 
U.26: ~ WORD 
; TPASADDR 
U.27: LONG 
3; TPASMASK 
U.28: LONG 
3 TPASTARGET 
Usg93 WORD 
3 TPASTYPE 
U.33: WORD 
3; TPASADD 
U.34: LONG 
3; TPASMASK 

2332 ASCII 
3; TPASTARGET 
U.36: WORD 
s TPASTYPE 
U.40: WORD 
3; TPASADDR 
U.41: - LONG 
3; TPASMASK 
U.42: ASCII 
3; TPASTARGET 
U.43: WORD 
3 TPASTYPE 
U.47: WOR 
3; TPASADDR 
U.48: ~ LONG 
3; TPASMASK 
U.49: ASCII 
: TPASTARGET 
U.50: WORD 
3; TPASTYPE 
U.54: WORD 
; TPASADDR 


13:49:20 


DIF /SRCIDIE 
<<TPDATA=U.6>-4> 
\:\<0><0><0> 

-1 

28929 
<<TPDATA*U.13>-4> 
\,\<0><0><0> 

-1 

28930 
<<TPDATA=U.20>-4> 
\!I\<0><0><0> 

-1 

28931 
<<TPDATA=U.27>=4> 
12 

-1 

28932 

<<TPDATA=U. 34>-4> 
\CL\<0><0><0> 

-1 

28933 
<<TPDATAU.41>-4> 
\J]\<0><0><0> 

-1 

28934 
<<TPDATA*U.48>-4> 
\3\<0><0><0> 

-1 

28935 
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00 00 00 2F O00SA | 
FFFF OO0SE 

7108 00060 

00000000* 00062 

00 90 00 20 00066 
FFFF O006A 

7109 0006C 

00000000* 0006€ 
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00 00 00 09 00072 ; TPASMASK 
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STARGET 
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ASMASK 


FFFF 00076 : TPASTARGET 


0.71: 
85F6 00078 ; TRASTYPE 
00000000 0007A ; ne, 


Oo7e “BLK 
$00 LINENUM_ STATES: 


7100 00080 ; ; TPASTYPE 


WORD 
ON 
LONG 


0. - WORD 
00000000* 00082 : TPASADDR 
0.80: LO 


00000001 00086 
FFFF QO08A ; 
1501 0008C 
FFFF OO08E 


»PSECT 


00000 DELIM_KEY 
00000 ; ; TPASKEYO 
0000* 00000 ; TPASKEY’ 


0.3: 
0000* 00002 ; TPASKEY. 


os 
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0000* 00004 ; tPASKEY 
0000* 00006 ZipASKEY 
0000* 00008 ; 7PASKEY 


WORD 
WORD 


U.31: WORD 


AX-11 Bliss-32 V tt oe 
DIF .SRC DIFGETCMD 832; 


<<TPDATA*U.55>=4> 
\/\<0><0><0> 

-1 

28936 
<<TPDATA*U.62>-4> 
\ \<0><0><0> 

-1 

28937 
<<TPDATA=U.69>=4> 
<9><0><0><0> 

-1 

=31242 
 alennimanatanticinatinns 


28928 

<<TPDATA=U. 80>-4> 

1 

-1 

5377 

-1 

-LIBSKEYOS,NOWRT, SHR, PIC,1 


0 

0 
<U.2°U.1> 
<U.9-U.1> 
<U.16-U.1> 
<U.23-U.1> 
<U.30-U.1> 
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£33 “1 :39: AX-11 Bliss-32 v4.0-76 
12a e- i She Paitesce || ete Aeh ee Cee Ke 853° 
re tS eee WORD <U.37*U.1> 
— jibhixev aie np 
— A ae mop as 
* : 8 oe = oe > 
weted pi ee 
00012 ; TPASKEY ; ; 
0.66:  .WORD <U.65-U.1> 
00014 LINENUM_KEYS: ‘ 
00014 ; TPASKEYO 
G.75:  .BLKB 0 
00014 ; TPASKE 
0.77: .WORD <U.76-U.75> 
00016 ; TPASKEY 
0.84:  .WORD <U.83-U.75> 
.PSECT S$PLITS,NOWRT,NOEXE,2 
ASCII \SLINE\ 
*BLKB 
“LONG 
“ADDRESS P.AAB 
“ASCII \INPUT1\ 
“BLKB 2 
“LONG. 6, 
DRESS 
wish Siar 
“BLKB 2 
LONG 6. 
"ADDRESS P.AAF 
“ASCII \ CHANGE _BAR\ 


«LONG Sa 
"ADDRESS. P 


ASCII \COMMENT -DELIMITERS\ 
-BLKB 
«LONG 8 
eADDRESS P.AAJ 
oo] \IGNORE\ 
“ DRESS 
oA Sil \LiNe  YIDTH\ 
-BLKB 
«LONG Bae 
ADDR ESS P 
tt \MATCH\ 
-BLKB 
- LONG 
- ADDRESS 
ASCII \RARIAUM DIFFERENCES\ 


-BLKB 1 


=.) 


oun: 


as 


4Cc 


TPARSE state tables 


45 


44 65 54 


53 45 4€E 


53 46 


53 45 43 41 50 53 SF 


Capen 


ao 


53 


4c 


54 


45 


4E 


47 


oa 


52 


5G 


4Cc 


41 


57 


5F 


4E 


46 


52 


49 


4E 


P) 


&& 


55 


4C 


52 


48 


4F 


4B 


45 


SF 


45 


4C 


49 


47 


45 


42 


50 


41 


41 


54 


44 


4E 


4D 


4D 


46 


49 


43 


1$-S0p-1 
14-Sep-1 


AS P.AAQ: 


on 
vw 
© 
Pd 
> 
i 


ooo 
RH MMMMmMoO 


coo 
oo 
ooo 


tte 


oo 
oo 
oo £ 
oo 
uss 
woo 
SSssssss 
NOWL-O@OlrWwon Gaoroe rue runeronm 


i i 


Oe a et ee et ak dd od od od od od = I IOOO? 


Be §3:49:20 


P. AAW: 
P.AAZ: 
P.AAY: 


P.ABB: 
P.ABA: 


P.ABD: 
P.ABC: 
P.ABF: 
P.ABE: 
P.ABH: 
P.ABG: 
P.ABJ: 
P.ABI: 
P.ABL: 
P.ABK: 
P.ABN: 

ABR: 


INNO VIS & & 
REPSASRSASSASSSELS 
~v wv 
. 
4 


AX-11 Str 


32 V4.0-74 
DIF .SRCIDIFGET 


CMD .832; 
«LONG 19 

ts) he PAAR 

ot \MERGED\ 


- LONG 
ts) be P.AAT 
eASCIIT = \MODE\ 


«LONG 4 
«ADDRESS P.AAV 
nt \NUMBER\ 


ol 

- ADDRESS 
ASCII 
-BLKB 
«LONG 6 

eADDRESS P.AAZ 
eASCII] = \PARALLEL\ 


«LON 
eADDRESS P.ABB 
any \SEPARATED\ 


+ LONG 

-ADDRESS P.ABD 
eASCII = \SLP\ 
-BLKB 1 


P.AAX 
* tte 


«LONG §=3 
»ADDRESS P.ABF 
sASCIIT = \WIDTH\ 
-BLKB 

«LONG 
-ADDRESS 
ASCII 
-BLKB 

- LONG 

- ADDRESS 
eASCII 
-BLKB 
-LONG 11 
sADDRESS P.ABL 
eASCII] = \COMMENTS\ 
- LONG 

- ADDRESS 
ASCII 
BLKB 


P.ABH 
\WINDOW\ 


P.ABJ 
\BLANK_LINES\ 


P. ABN 
\FORM_FEEDS\ 
“LONG 10 
ADDRESS P.ABP 

“ASCII \HEADER\ 


ABR 
RAILING_SPACES\ 


voureoo TPARSE state tables 15-4en-1984 93:95:50 | OTE SaebbER ce echo S35- 


54 43 «9 80990000" DO1AS P.ABU: .LONG 


S980. BETES PANS AON aa 
59 54 54 45 tate P.ABZ: “ASCI \PRETTY\ 


49 49 43 DOICC P.ACB: .ASCII \ASCIIN 
1D -BLKB : 
90 009 00104 P.ACA: .LONG 
0 * 00108 -ADDRESS P.ACB 
4C 41 4D 49 43 465 46 461 58 45 & po106 P.ACD: “ASCII \HEXADEC IMAL 
ie e 
9000008 DOIES P.ACC: .LONG 11 
0000000' OO1E ADDRESS P.ACD 
4C 41 56 43 4F iF P.ACF: aa \OCTAL\ 
99 00005 1F8 P.ACE: ONG 
0000000' ire DDRESS P.ACF 
52 45 54 53 41 40 P.ACH: Asti \MASTER\ 
0000000: 88 P.ACG: .LONG 
OO g009 . 0 -ADDRESS P.ACH 
4E 4F 49 53 49 56 4 1 PeACd: ASCII \REVISION\ 
0000000 18 P.ACI: .LON 
00000000' 1C -ADDRESS P.ACJ 


-PSECT SOWNS,NOEXE ,2 
0A 00000 Svsseureul: 


. 10 
54 55 50 56 55 4F 24 53 59 53 90001 “ASCII \SYSSOUTPUT\ 
0008 "BL 1 
0000¢ TPALINDESC: : 
00010 ig gabges -BLKB 4 
00014 TPABLOCK: 
‘BLKB 36 
00038 FIND_CONTEXT: 
.BLKB 4 
00# O003C FIND -NASFILE : 
02 0003F BY We —s 
tyres *BLKB 4 
SD_SLINE= P.AAA 
SD~ INPUT I= P.AAC 
SDIINPUT2= B-AAE 
SD"CHA P- AAG 
S07 ~COMMCRT™ "DELIMITERS= 
SD_IGNORE= BARE 
$0- LINE WIDTH= P.AAM 
SO-MATCA= P- AAO 


vouro00 TPARSE state tables 1bden- 1944 13:19:00 UOTe sredoitceycn 


4.0-74 
D.832; 


SD_MAXIMUM_DIFFERENCES= 
P.AAQ 

SD_MERGED= P. AAS 

SD"MODE= P. AAU 

5D“ NUMBER= P. AAW 

SD“OUTPUT= P.AAY 

SD"PARALLEL= P. ABA 

S50" SEPARATED= P. ABC 

SD“SLP= P. ABE 

SD“WIDTH= P.ABG 

SD" WINDOW= P.ABI 

SD “BLANK L INES= P.ABK 

SD" COMMERTS= P. ABM 

SD" FORM_FEEDS= P. ABO 

SD"HEADER= P. ABQ 

SD ~TRAIL ING, SPACES= P.ABS 

SD" SPACING= P. ABU 

SD"EXACT= P. ABW 

SD"PRETTY= P.ABY 

SD-ASCII= P.ACA 

SD "HE XADECIMAL= P.ACC 

SD"OCTAL= P.ACE 

SD"MASTER= P-ACG 

SD“REVISION= P.ACI 
.EXTRN DIFSGL_TYPDATA, DIFSGL_COMMDESC 
“EXTRN DIFSGL-COMMFLGS 
“EXTRN DIFSGL-IGNORE, DIFSGL_CMDESC 
-EXTRN DIFSGL-HEADER, DIFSGL-WIDTH 
SEXTRN DIFSGLIMATCH, DIFSGL_MAXDIF 
-EXTRN DIFSGLIMERGED, DIFSGC_PARALLEL 
SEXTRN DIFSGL-WNDWSI2, DIFSGC_FLAGS 
SEXTRN DIFSGL-MASFDB, DIFSGL “MASDESC 
SEXTRN DIFSGL-MASRAB. DIFSGL-MASNAM 
SEXTRN DIFSGL-MASRSS, DIFSGL-REVFDB 
SEXTRN DIFSGL-REVDESC, DIFSGC_REVRAB 
ZEXTRN DIFSGL-REVNAM, DIFSGL_REVRSS 
“EXTRN DIFSGL-OUTIFI. DIF SGU OUTDESC 
“EXTRN DIFSGL-OUTRAB. DIFS$GL-OUT 
“EXTRN DIFS$GL~OUTRSS.| cLISGET VALUE 
“EXTRN CLISPRESENT, LIBSCVT OTB 
-EXTRN LIBSFIND FILE, LIBSGET vm 
SEXTRN LIBSSCOPY_R_Dx, 18 TPARSE 
eEXTRN STRSCOPY_BX> SYSSFAO 
“EXTRN CLI$ PRESENT, CLI$_NEGATED 
“EXTRN DIFS$C_MAXLANGS DIFS BADVALUE 
-EXTRN DIFS_CLOSEIN, O1F$ CCOSEOUT 
“EXTRN DIFS"CMOLIN, DIFS CMDSYNTAX 
“EXTRN DIF S-CONF QUAL, DIFS$_MRGGTMTCH 
SEXTRN DIFS"NOLOWVER DiS NOVALUE 
-EXTRN DIFS"NOWILD, O1F$ OPENIN 
-EXTRN DIFS-OPENOUT, DIFS_PARGTMTCH 
-EXTRN DIFS"PARSEFAIL, DIFS_STRCPYERR 
EXTRN DIFS"SYSFAOERR. DIF$~TOOMNYDL 
“EXTRN DIFS"TOOMNYFIL. DIF$S~TWOWIDTHS 
.PSECT $CODE$,NOWRT,2 


13 
voeze00 TPARSE state tables 13-Se0-1984 $3:43:36 Dir SRE WitceTcMD:oSe, 
007¢C 00000 CLR 


56 00000000" EF fovag feaBLOcke Ae 
24 00 6E 5 3 moves #0, (SP), 70, #36, TPABLOCK 

66 6 D F MOVL 4g. TPABLOCK 
04 As D 2 MOVL @ TPABLOCK #4 

5 06 =A p 1 MOV STRING, R 
08 AG 6 1A MOVZ2WL (RO), fPABLOCK+8 
¢ Ab 06 ad D 1 MOVL  4(ROS, TPABLOCK+12 
F A 50 D MOVL RO, TPALINDESC 

FS Ab b CLRL —*TPDATA 
7E 08 ac 70 A MOVG STATES, (SP) 
36 0D PUSHL R¢ 
000000006 00 FB 00 CALLS #3, LIBSTPARSE 
04 000 RET 


; Routine Size: 56 bytes, Routine Base: S$CODE$ + 0000 


De Se Se Se Se Se Ge Se Se Fe Se Se Se Se Se 


13 
Print syntax error message from tparse 15-Sen-1984 93:33:36 Dif SREIDIFGETCMD O30¢ 


COnouw 


State teun— 


Oo 


3; Routine Size: 


1 ZSBTTL ‘Print syntax error message from tparse'; 
} ROUT INE syntoners s ° : 


BEGIN 
¢ 
i This routine is called to print a command syntax error message 
: and stops the image. 
SIGNAL _STOP(dif$ sagsyater .0 
di f$_cmdlin,1,.tpalindesc) 
END; 
0000 00000 sateen ; oni 
° n 
00000000" FF pp 00002 BUSHL TPALINDESC © 
1 00 000 PUSHL @# 
00000000G 8F DD OO0D0A PUSHL #DIFS_CMDLIN 
000000006 8F bd 0012 SUSHIL —aDIFS. CHDSYNTAX 
000000006 00 8S FB 0001 CALLS #5, LYBS$STOP 
G4 O001F RET 


32 bytes, Routine Base: S$CODES + 0038 


13 
DIF _GETCMD 1-5 1984 23:39:1 AX-11 Bliss-32 V4.0-74 
vOe=000 Print syntax error message from tparse 12883-1984 #333333 {oir «sre DIFGETCHD.832; 


1 1 ROUTINE badvaluerr (desc) = 
BEGIN 


; Print an error message about a bad qualifier value and stop the image 
SIGNAL STOP(dit$_badvalue,1,.dese) 


0000 00000 BADVALUERR: . 


WOR Save nothing 
04 AC 00 PUSHL _ 
1) PUSHL @# 
00000000G 8F oD PUSHL spirs BADVALUE 
000000006 00 3 fe $300 CALLS #3, LTBSSTOP 


; Routine Size: 21 bytes, Routine Base: SCODES + 0058 


On 


8586 


0587 


' 


<o 


Bete Se ee Ge Fe Ge Ge Se Ge SHE Se Se Se Se Se Se Ge Se Se Se Se ee Se Se Se ee Se Se Se ee Se Se See eeas 


13 


1FoSeoctgee 25:89:15 


rE 


Get change bar qualifier 


1 ZSBTTL ‘Get change ber qualifier’; 
geciN getchbarqual (fdb) = 


desc : desc _fecl; 


D 
cchar = desc(dsc$a_pointer] : REF VECTORC,BYTE); 


byt Sob span cherchrd = ZASCII ‘!'; 
num 
if tabt tapsvech changebar] = cli$present(sd_change_bar)) 
CHSF Luce géorhe 35-04. desc); 
desc(dsc$6_class) = dsc$k_clas 
WHILE cli$get_value(sd <chEnee, ay ‘dese? 
DO BEGIN 
IF call Ltperse (desc, -linenum_states,linenum_keys) 


fdbl fdb$v_linenum] = .tpdata; 
nuaberkey” = true; 


ELSE IF des ssenz Length] NEQ 0 
THEN fdblfdb$b_Cbarchr] = .cchar(0); 


THEN mvabt footy. Linenum] = .dif$gl_flags(dif$v_linenum); 


BSS SO NONE UN OOO NORWOOD NEAR WN ODO BRUT 


RETURN true 
END; 


ototttt atte ttt ttt tt ttt tated 


Weronononononononononyd OOO 
SSSR NONR UH OOWNANE WH OSR NEAR UI S OW ORCI ODoS 


& 
| 
4 
4 
END; 
IF NOT 
END; 


01FC 00000 GETCHBARQUAL : 
8 00000000° Ff 9 MOV 
E 8 C SuBL 


et: $2 As i 


AX-11 8 


iss-32 V4.0-74 
DIF .SRCIDIFGET 


CMD .832; 


—— E bar gr) Ml if specified. This is a file-specific 


; i qual tter. $ of value for the a riate input file specification 
; should be “ene “lente ately prior to calling this rout ine z 
Inputs: 
tdb address of selected input file fdb 
MAP 
fdb : REF BBLOCK; 
LOCAL 
mambertey. 


'Set default character 


‘Make a dynamic 
: string doccrioter 
'Get value 


save a. R3,R4, fe R6,R7,R8 


ANGE wBAR, Rb 


V i hea 
rise maeens 


rcoceoo--———- 


13 

DIF_GETCMD 1.5e -1984 23:39: AX-11 Bliss-32 V4.0-74 Pa 4 

Pb 2050 Get change bar qualifier 127808-} 382 93:73:33 DIF SREIDIFGETCMD 832; ” FF 
000000006 eB. 18 ALLS #1, CLISPRESENT ; 
24 Ab 01 8 ‘8 f Inv RO; i. #1, 36(R6) : 
r) ; ; LBC. «RO, & ; 

08 00 6E C é MOVCS #0. (SP), #0, #8, DESC + 0614 

03 AE 5 90 MOVE #2, DESC +3 i 0615 

4100 8F eB 1$ PUSHR #°M<R sP> t 0616 
000000006 90 ; Fe CALLS #2, CLISGET_VALUE ; 
BLBC ° é 

990000 ' €F SF 0004 PUSHAB LINENUM_KEYS + 0618 
0000000" EF 9F 00046 PUSHAB LINENUM~STATES : 
AE 9F 0004C PUSHAB DESC : 

FF3F OC : FB AF CALLS #3, CALL_TPARSE : 

F E 34 BLBC ; | 

24 «A 01 1 00000000" FF FO 99 7 INSV  TPDATA, #1, #1, 36(R6) : 9620 

? 1 00 00061 MOVL #1, NUMBERKEY : 06 1| 

cC 11 00064 BRB 1$ : oe18 

‘ 8 28: TSTW bESC 3 0623) 

C BEQL 1 3 

26 Ab 04 BE 90 0006A MOVE  @CCHAR, 38(R6) F 0624, 

¢1 11 006 BRB 1$ 7 0616) 

OF 7 €8 1 38: BLBS  NUMBERKEY, 46S F 0626 

50 000000006 00 01 4 EF 00074 EXTZV #4, #1, bir so. FLAGS*1, RO : 0627 | 

24 «Ab 01 01 0 FO 0007 INSV RO, #1, #1, 36TRO) 3 | 

50 1 00 00083 4$: MOVL = #1... RO : 0630. 

04 00086 RET ; 0631. 


; Routine Size: 135 bytes, Routine Base: S$CODE$S + 0060 


<9 


R 14 
15-Sep-1984 


DIF _GETCMD :39:1 AX-11 Bliss-32 V4.0-74 
Phe 7000 DIFSGETCMD Process command Line 14-Sep-1984 $3:79:5 DIF -SREIDIFGETCHD B32; 
; § 1 ZSBTTL yi t eee Coe Process command Line’; 
1 GLOBAL ROUTINE difSgetcmd = 
. ¢ BEGIN 


Get the command parameters 


3 3 ! Inputs: 

; : 

; 344 0620 : none 

; 345 641 : 

: ek Implicit inputs: 

; re rt} command Line entered, image invoked by DCL 

; 350 646 LOCAL 

; 351 64 status, 

; 2 oe8 desc : desc_decl; 

: 354 50 CHSFILL(O,dsc$c_s_bln,desc); ! Make desc a dynamic string descriptor 
; 355 51 2 descldsc$b_class) = dsc$k_class_d; 

: 389 bess 3 

; 38 0654 i Get the /NUMBER and /SLP qualifiers 

; 360 0656 difSgl_flags(dif$v_Linenum] = cli$present(sd_number); 

; 2 065 difSgl_flagsldif$v_slp) = cli$present(sd_sip); 

; 6¢ 0658 

; 0659 : 

3 ee Ose! } Get the /SEPARATED qualifier 

; 6¢ dif$gl_fla s (dif$v_separated] = ah rygrosemttes separated); 
; 367 066 dif$gl_masfdb leprepepereseds = cli$present(sd_master); 

: oe ee: dif$gl_revfdb [fdb$v_separated] = cli$present(sd_revision); 
: 370 0666 ¢ 

3 a 6 : Get the /LINE_WIDTH or /WIDTH qualifier 

; 4g 9 if cli$ et_value(sd_line_width,desc) 

3; 374 70 THEN BEGIN 

: 375 671 status = bibScvt_dtbt dose Césctu._ton th), 

; 376 % -descldsc$a_pointer] dif$gl_width); 
: 77 7 IF NOT .status 

; 378 0674 THEN posuol veer Cease ti 

: 379 8072 dif$gl_flags(dif$Sv_width] = true; 

: 30 16 END; 

; Be 28 ¢ IF cliSget_value(sd width.desc) 

; S27 67 THEN BEGIN 

; 680 status = bioSevt_dtbt. dons (doctu, Lengthy. . ; 

3; «385 1 -desc(dsc$a_pointer) ,dif$gl_width); 
3 "4 ; IF NOT .status 

: THEN badvaluerr(desc); 

; 388 difSgl_flags(difSv_width] = true; 

3 44 ° 5 END; 

; 391 6 IF cli$present(sd_line_width) and cli$present(sd_width) 

; 392 06 THEN SIGNAL (dif$_twowTdths); 


Sq 


— 


ee 


Ba Be Be Se Be Se Se Be Se Se Se Ge Ge Be Se Se Se Se Ge Se Se Se Ss Se Se Se Be Ge Se Ge Se Se Se Ge Se Ge Se Se Ge Se Se Fe Se Se Ge Se Ge Se Ge Se Se Ge Se He Se Seas 


Py as 


FP ay ot ot ot ot ot ot ot ot ttt 
DNAS WN "OO OOnNOufun— 


USZSS 


See 
SRGERE 


440 


SGOSCCSOOOOOOCOCOOOOOoO 


aes —— - —— . — 


sag 


1 4 23:39:1 AX-11 Bliss-32 V4.0-74 
IFSGETCMD Process command Line 1 Be 93:79:33 DIF .SRCIDIF $524 cho o3001 


Peon badvaluerr (desc); 
, 
: Get the /WINDOW qualifier 
i rset eel. flags(difSv_window] = cli$get_value(sd_window,desc)) 
status = LibScvt_dtb(. dese tgsebe bw sugneth 
IF ((NOT .status) OR ( qeaits $gl_ widwsiz LEO 0 


9 
$50 8 
4 : Get the /MATCH qualifier 
638 i Bhs flags(difSv_match] = cli$get_value(sd_match,desc)) 
695 status = LibScvt_dtb(. sooo Cdsc$w_len thi. 
38 -descldsc$a_pointer],dif$gl_match); 
9 IF a sta 
oS THEN bedvatuoretéeecti 
9 END; 
701 : 
708 : Get the /MAXIMUM_DIFFERENCES qualifier 
re if (ai tse. flags(difSv_maxdif] = cli$get_value(sd_maximum_differences,desc)) 
70 status = LibScvt_dtb(. rte Me songee }- 
70 .desc(dsc$a_pointer],dif$gl_maxdif); 
0708 IF — -Statu 
194 THEN bedvatuerr (desc): 
710 END; 
0711 
Orie ‘ 
Betz ' Get the /MERGED qualifier 
0715 iF apt rocennted merged) 
orig THEN 
071 4; 89 tlags(dif$v spergees = true; 
0718 IF cli$get_value(sd_merged,desc 
0719 AND NOT (status = Lib$cvt sotbC. desc(dsc$w_length], 
0720 .desc(dsc$a_pointer], 
0721 dif$gl_ merged) ) 
7 § THEN badvaluerr (desc); 
7 D; 
724 
of 5 : 
§ Get the /PARALLEL qualifier 
, 8 if fet sserecenated, parallel) 
730 Tetis flags(dif$v_parallel) = true; 
731 iSget_value(sd_parallel, desc) 
7 ; D NOT (status~= LibScvt “dtb(. edencldgcSu, Length). 
7 desc(dsc$a pe inter], 
4 : dif$gl_paraTlel)) 
7 
7 
7 
7 
7 
7 


.dif $$el undus tad: 


scence CC LL LLL LL OC 


14 
18-36 -1984 2:39:15 AX-11 Bliss-32 V4.0-74 
DIFSGETCMD Process command Line 1a-8ep-19 4 93:73:33 DIF SREIDIFGETCMD 632. 
74 THEN badvaluerr(desc); 
fe END; 


28 ; 
Get the /COMMENT_DELIMITERS qualifier 


‘ if (ditsol_tlagsldi f$v_condelJ = cli$present(sd_comment_delimiters)) 
THEN he 

delimbuf : VECTOREdif$c_maxcdim,BYTE), 

§ delimindex; 

8 delimindex = 0; 


WHILE cli$get_value(sd_comment_delimiters,desc) 
760 4 DO BEGIN 


761 4 If .desc Cdsc$w_length]) GTRU 1 
076 g THEN CIF NOT (status = call_tparse(desc,comment_delim_states,delim_keys)) 
076 THEN syntaxerr() 
0764 4 ELSE CHSMOVE (1, .desc [dsc$a_pointer], tpdata); 
0765 4 IF .delimindex EQL dif$c_maxcdim 
0766 4 THEN SIGNAL_STOP(difS_toomnydim,1,dif$c_maxcdim); 

767 4& delimbufl(.delimindex) = .fpdata; 

768 4 delimindex = .delimindex + 1; 
8768 ; END; 
0770 IF .delimindex NEQ 0 
0771 4 THEN IF NOT (status = LibSscopy_r_dx(delimindex,del imbuf,dif$gl_commdesc)) 
077 THEN SIGNAL_STOP(dif$_strcpyerr.0,.status); 
077 END; 
0774 
0775 : 
p7rs Get the /IGNORE qualifier 
0778 dif$gl_flags(dif$v_ignore] = cli$present(sd_ignore); 
0779 2 dif$gl-ignore Cign$v_blnklin] = cli$presenttsd_blank_Lines); 
oreo dif$gl_ignore CLign$v_comments) = cli$present(sd_comments); 
0781 dif$gl_ignore Lign$v_exact] =_cliSpresent(sd_exact); 
44-14 es | ignore Cign$v_formfeed) = cli$presenttsd_form_feeds); 
$78? IF soe \ : nore Cign$v_header) = cli$present(Sd_header)) 
Ores IF cl Segoe valueted. heed r,desc) 

7 $ 4 AND NOT (status = Lib cut, GtC dosct decSy_lengend. 

787 4 -desc(dsc$a_pointer), 

7 3 & dif$gl_header)) 

7 THEN badvaluerr (desc); 

dif$gl_masfdb ffdbSt headent = .dif$gl_header; 

a4 gi scet_revids fdb$i_headcnt] = .dif$gl_header; 

198 dif$gl_ignore jongv pretty] = cl iSeresent (sd pretty); 

794 dif$gl_ignore CLign$v_traiblnk] = cliS$present(sd_tra Ling_spaces); 

re? difSgl_ignore Lign$v_spacing] = cliSpresent(sd_Spacing); 

i IF ,dif$gi_ fl Cdif$v_comdel) 

¥ ags v_comde 
99 THEN Begin ° 
dif$gi_flags C91 fSy_ ignore) = true; 
5 saree anere ign$v_comments]) = true; 


roe 


14 
0 CMD 150 $1984 23:39:1 AX-11 BLi te P 
vob DIFSGETCMD Process command Line 1angeb= 1986 $3:79:36 DIF .SRCID cho 4 ae 5 
3 
5 2 Get the /MODE qualifier 
d flags rH ~escii] = FL ‘Seresent(ed. ascii); 
flags $v—-hex] = cl Pecesent(s¢, héxadec imal); 
_flags Sitgve ~octal) = cli$present(Sd_octal); 


i Get the /OUTPUT qualifier 


(dif$gl_flags(dif$v_output] = cli$ resent (o¢ _output)) 
hg REN LT Nar wetye(S¢ d output tai fs of. “s 
Tags 


THEN tos scopy s s teltey. 2 (0)), sysSoutput Clee 
dif$gl_outdesc); 


emcee GQAGQ+<+<-= 
te te ate 
a ee 
PRM 
ouwo 
-—— 


- 


> 4 4 od > st 


WN $9 OBWVNO UE W “OO OVNOY FW —0O0@ 


Get the input files 


cliSget.. value(sd_input!,find_masfile); 

getchbarqual (di fSgl_masfdb); 'Get /CHANGE_BAR for master file 
' 

: Get value in case two params specified on first input 


See sanubwnbuseoe bie 
VFUNR "OC OCONOUVUES WN —“ODOONOuvrfwn0O ~N 


SDOOOOOCOCOSOOOOSOSOOSOSOOOOOOSOOOOOOOOOOOOOOOoOOoOO 
‘Gd Cd CD Cd Od CD Cd OD Cd C9 CD OD OD Od Od OD Od CD Od OD Od OD CD C9. CD OD CD GD. CD CD. CD CD CD CD CD00 


5 
5 
; 
5 
H ir apcgeue = cli$get_value(sd Ban, > -3f desc)) 'Get 2nd file on first parameter 

5 TH Ss fevfdb); 
5 RL et_value(sd_input2,dTf$gl_ revdesc) ‘If 2nd parameter specified 
é If Oe ! and two files given on first param 
3 : THEN SIGNAL _STOP(dif$_toomnyfil); 
226 CLsE IF .sta '2nd param not specifed 
541 THEN Nn’ CHSMOVE (dscSc_s bln,desc ,dif$gl_revdesc); ' but 2 files on first param were, so use it 
58 3 getchbarqual (di f$gl_rev fab): iGet /CHANGE_BAR for revision file 
4G 0 : 
56 1 Get the command Line 

of § cli$get_value(sd_Sline,dif$gl_cmdesc); 

49 5 : 

29 $ ! Check for conflicting qualifiers 

5 8 if -dif$gl_flags(di f$v peretis'2 ‘If /parallel specified 

2? 4 THEN difSgl_flags(dif$v_ascii) = true; ‘Force ASCII mode 

55 24 iF .0i feel. flags(dif$v_sip) ‘If /slp specified 

33 ¢ “alttat. ignore jongv_ exact) = true; 'Use unedited text 

58 32 di feat7 igno re reretty = false; ‘Don't expand tabs, etc. 

B 5 ew i“ ftlagsldi fs tinenus = false; !Don't output numbers 

61 3 ELSE IF NOT dif Sot. togst i tSy_s sporeted) ‘Not /slp, if not /separated 

6 3 AND NOT .dif$gl_masfdb[ fdb$v_ eneeper} ' or /changebar 

6 5 AND NOT “Gitsatt revfdbl fdb$v_ ~Chengeder i “on either file 


- 
| 
| 
| 
; 
| 
| 
| 


] 


<Oo 


— 


F 14 
DIF _GETCMD 15-Sep-1984 23:39: AX-11 Bliss-32 v4.0-74 P 3 
tet DIFSGETCMD Process command Line 12-8 08= 1 3be 93:79:58 iF SRE IDIF GET CMO 65004 ot 83 
; 5646 AND NOT ,dif$gl_flags(dif$v_parallel) ! or /parallet 
: 65 : THEN Gitdgl tlogetatese mergoad = true; : then’ set /merged 
3 ; The values of /MERGE and /PARALLEL must be less than /MATCH 
; 65 2 IF .difSgl_merged GIR .dif$ol_match 
4 79 OS tmtch My atts l d,.dif$gl h) 
3 _mrggtmtch,2,. _merged,. match); 
5 Me : di f$gl_merged genaiiSol match: ° . 
: i Q END; 
: 575 7 F .dif$gl_parallel GIR .dif$gl_match 
EBS ei ee ie soresten sptegl pratt, net tel net 
; argtmtc ° araliel,. match); 
: 78 74 difSgl_paratlel® = .dif$gl_ma of: : me 
; 75 END; 
; 580 6 
; 581 7 RETURN true 
: 582 0878 END; 


OFFC SENTRY DIFSGETCMD, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0633 

58 000000096 00 9€ MOVAB ODIF$GL_IGNORE, R11 : 

SA FF F 9€ MOVAB BADVALOERR, R10 : 

59 9009 006 00 9€ MOVAB CLISGET VALUE, R9 : 

38 0 99 006 00 9€ MOVAB CLISPRESENT, RB ; 

00000006 00 9€ MOVAB DIFSGL_FLAGS, R7 : 

56 00000000° EF 9 MOV SO_LINE_WIDTH, R6 ; 

5E 0 § SUBL #48, SP 3 
08 00 6E . 00 C mOVCS #0, (SP), #0, #8, DESC : 0650 
28 AE 02 90 MOVB #2, DESC+3 + 0651 
58 6 OF PUSHAB SD_NUMBER : 0656 

48 .e CALLS #17 CLISPRESENT : 

01 a7 01 04 F INSV RO. #4, #1, DIFSGL_FLAGS#1 : 
0098 OF PUSHAB SD. + 0657 

68 1 FB CALLS #17 CLISPRESENT : 

01 «a? 01 00 0 F INSV. RO. #0, #1, DIFSGL_FLAGS#1 : 
008c 66 OOF PUSHAB SD_ SEPARATED ; 0662 

68 1 FB CALLS #17 CLISPRESENT : 

67 01 0 F INSV RO. #7, #1, DIFSGL_FLAGS : 
018¢ «6 OOF PUSHAB SD_MAST ; 0663 

F 1 FB CALLS #17 CLISPRESENT ; 

000000006 00 01 2 0 F INSV RO. #2, #1, DIFSGL_MASFDB+36 : 
019¢ «(66 OOF PUSHAB SD_REVISION > 0664 

68 1 FB CALLS #17 CLISPRESENT : 

000000006 00 01 0 F INSV RO, #2, #1, DIFSGL_REVFDB+36 ; 
28 «AE OS PUSHAB DESC > 0669 

nt) PUSHL R ; 

$9 FB CALLS #2, SL ISGET_VALUE F 

4 f BLBC—OséiR ; 
000000906 f PUSHAB DIFSGL_WIDTH ; 9671 
AE 0D PUSHL  DESC+4 > 0672 


<o | 


ee Eee 


DIF _GETCMD 
hn =050 DIFSGETCMD Process command Line 


000000006 
01 
000000006 
01 
000000006 
01 =A? 01 
000000006 
01 =A? 01 
000000006 


3 30 AE 3C 00091 
FB 00095 
baie 
DO009F 
6a 28 at 7 
A7 > Y 1$ 
2 A F QOOAC 2$ 
. ic ee oF 30089 
7 A C 000C2 
6 #8 000C6 
ee: 
6a 28 at of 0° 
A7 Oe 8 43 3$: 
0D 0 4$: 
$8 9 44 Ff 
' 00A8 § g 
68 i 44 O0E9 
0D 0 €9 OQOOEC 
00 000000006 Bf re 4 
28 AE OOF C 5$: 
10 Ad OF f 
gH Ri 
ney 00 oF OF 
7E A Be 1 
3 BS oh iis 
ee et 
$8 AE 9F 4 6$: 
9 C A 4 
ie iB 99197 
000000006 FF 4 
re aR ME B48 
& 40 
Mon Bis 
a 78 HRB 
3 3C.)Cti«‘«N 44 § 7%: 
of fe 


2eecevecveacs FF 


NNOr nun 


MOVZWL 


48 MOTE Selb i PGE cho Ssaet 
D 
4 


SC, =(SP) 
5: LIBSCVT_DTB 
RO, STAT 


US, 
) 
#i, BAD 
u F 


ALUE 
IFSGL 


VALUERR 
$GL_FLAGS*1 
TH 
ISGET_VALUE 
WIDTH 
=(SP) 
I8$CVT_DTB 
TUS 
S, 38 


ADVALUERR 
#2, DIFSGL_FLAGS*1 


40 Gg rare 


cn 
om CHET: 40 FO 
> 


SD_ WIDTH 
#1; ISPRESENT 
#OLF$_TWOWIDTHS 

#1, LIBSSIGNAL 

Desc 

SD_MATCH 

#2, CLISGET_VALUE 

RO, #2, #1, DIFSGL_FLAGS+1 
DIFSGL_MATCH 

DESC +4 

DESC. -(SP) 

#3, CIBSCVT_DTB 

RO, STATUS 

STATUS, 6$ 

DESC 

#1, BADVALUERR 

esc 
SD_MAXIMUM_DIFFERENCES 

#2 CLISGET_VALUE 

R ; #6, #1, “DIFSGL_FLAGS#1 
DIF SGL_MAXDIF 

DESC 

DESC, -(SP) 

#3, LIBSCVT_DTB 

RO. STAT 

StAtUs. 

i BADVALUERR 

#15 CLISPRESENT 

RO, 8S 


Page bs 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Be Se Se Be Se Be Se Se Se Se Se Be Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se 


) 
0671 


73 
74 


81 


oso 
0680 


D! 
vi 


wa 


01 = A7 


67 


01 


01 


000000006 


000000006 


000000006 


67 


: 


6A 


oy 


28 
78 


oe 
: 
0 
000000006 
28 
6A 
oc 
} 
oe 
8 
oc 
9 
5% 
1 28 


00000000° 


WennONO-OMOon 


RE OOF *OVFNDODODTOO*"OOUg"™ 


o 
Sal 


-onmn 
wo—-0ow 


oe 
= 


ee eee ee eee ee ee ee ee er er er er er er er er er er er er er er er er er er ee er er ee er er er er er er er oer er er er 


13-Sep-19 


128-1984 3; 3 


tt ed ed WwW NW MMMMMOCVVICOOCOOOWW@OD> bad OO O09090909 SI III OO 


co 
bad 
onvu 
—->C 
“” 
= 
& 


Oo 
oe 
ce 
“ 
= 
& 


a AX-11 8 isec3¢ ad et 4¢ 


DIF .SRCIDIFGE 
DIFSGL_FLAGS 


CMD .B32; 


Ee 
GL_MERGED 

+ 

(18 


, BADVALUERR 
“PA ALL L 

#17 CLISPRESENT 

#64, DIFSGL_FLAGS 

pest 


SD _PARALLEL 

#2, CLISGET_VALUE 

DIF SGL_PARALLEL 

DESC +4 

DESC. -(SP) 

#3, LIB$CVT_DTB 

STATUS 

s Atus, 9$ 

#1, BADVALUERR 
“WINDOW 

#2; CLISGET_vA LUE 
_& “DIFSGL _FLAGS#1 

GL_WNDWS12Z 


ieecyt pre 


o 


BADVALUERR 
aw i 117 alate 


Kon “i, DIF SGL -FLAGS 
se INDEX 
eo NT _DELIMITERS 
jSceT_ VALUE 
ms 3 


ta KEYS 


“OO -DBWWseVZesc-ovwWsovcTowwWsev1so » 
MMNOOOo 9M = SHOW MN = QOMIM mn +41 
Lar = 2st = MMP = = 


14 
voureoo DIFSGETCMD Process command Line 13-$e0-1984 93:39:36 OIF SRE bifcé echo 832, Seege BS 


eoaaes EF PUSHAB COMMENT _DELIM_STATES 
A SH DES 


Ff 5 3 

3 PUSHAB : $ 

AS soAA F 4 CALLS #3, CALL TPARSE ; ; 

32 D 4 MOVL RO, STA : : 

. 4 BLBS = STATUS, 15% : : 

£0 re 00248 CALLS *" SYNTAXERR : 0763 . 

11 O004F BRB 15$ + 0762 3 

00000000° ef 3¢ BE 90 1146$:  MOVB  aDESC+4, TPDATA + 0764 : 

0 A : 9 15$:  CMPL DELIMINDEX, #32 + 0765) ; 

11 (12 D BNEQ si ; ; 

0 0D F PUSHL # : 0766 3 

1 DD 6 PUSHL #1 : ; 

000000006 8F DD PUSHL apiFs TOOMNYDLM : 3 

a 6 RF SF OB59S 166: Rov seC Neu bo 0767 

04 BES 00000009" EF 3 7% MOVB  TPDATA, @DELIMINDEXCRO] : : 

4 AE 06 INCL DELIMINDEX : 0768 ; 

9E BRB + 0759 | : 

04 AE 03 17: TST p IMINDEX ; 0770) : 

000000006 60 9F PUSHAB DIFSGL_COMMDESC t 0771) : 

C AE OOF PUSHAB DELIMBOF ; : 

C AE OOF PUSHAB DELIMINDEX : : 

000000006 99 F 9 CALLS #3, LIBSSCOPY_R_Dx : : 

D 9A MOVL RO, STATU : : 

11 E 90 BLBS § STATUS, 18$ ; | : 

3 DD 002A PUSHL STATUS : 0772 : 

E D4 002A CLRL = = (SP) 3 : 

000000006 ef DD PUSHL splrs STRCPYERR : ; 

000000006 00 3 FB AA CALLS #3, LTB$STOP ; : 

EC Ad OF 00281 18S: § D_IGNOR : 0778) : 

68 Qi FB B4 CALLS #17 CLISPRESENT ; : 

67 01 04 0 F 87 INSV , #1, DIFSGL_FLAGS : ; 
Oocc C6 9F 0028 PUSHAB SD_BL > 0779) : 

68 1 FB C CALLS #17 CLISPRESENT ; 3 

68 01 00 0 F ¢ INSV RO. #0, #1, DIFSGL_IGNORE : : 
0ODC 66 OF O02C PUSHAB SD. NT ; 0780. : 

4 1 FB CC CALLS #17 CLISPRESENT : : 

68 01 1 0 F CF INSV. RO. #1, #1, DIFSGL_IGNORE ; | 3 
0138 C6 9F 002046 PUSHAB SD_EXACT : 0781 : 

68 gi FB 08 CALLS #17 CLISPRESENT : : 

68 01 0 F DB SV RO. #6, #1, DIFSGL_IGNORE ; | : 
OOFO C6 OF O0E PUSHAB SD_FORM_FEEDS > 0782 | : 

68 1 FB gS CALLS #1, CLISPRESENT : 3 

68 01 0 F E INSV RO, #2, #1, DIFSGL_IGNORE 3 | : 
0100 6 oF E PUSHAB SD_HEADER : 0783 | : 

68 F F CALLS #17 CLISPRESENT : : 

68 01 0 F F INSV Rd, #5, #1, DIFSGL_IGNORE ; | : 
42 F BLBC =—E-—saRRO._« 200 : : 

38 AE SF O0FB PUSHAB ; 0785 : 

01 F OOF PUSHAB § -HEADER ; | : 

$9 FB CALLS #27 GET_VALUE ; : 

0 3 BLBC 3 3 

000000006 F PUS DIF SL HEADER > 0786 | : 

AE po PUSHL DESC > 0787 | : 

43 At C MOVZWL DESC. -(SP) ; 0786 | ; 

000000006 0 03 FB CALLS #3, LIBSCVT_DTB ; | : 


14 
DIF _GETCMD 1ba5e -1 :39: AX-11 Bliss-32 V4.0-74 Pa 7 
OA 880 DIFSGETCMD Process command Line 12-8 08=1 382 13:79:58 DIF SREIDIFGETCMD 632, ~ A {4 
D 1¢ MOVL RO, STAT ; 
8 8 EB f BLBS _—s STATUS, 3s : | 
28 AF F PUSHAB D t 0789 
A F CALLS #1, BADVALUERR : 
000000006 D 19% MOVL  DIFSGL_HEADER, RO : 0790 
990000006 D MOVL RO, DIFSGL_MASFDB+4 : | 
6 p MOVL RO, DIFSGL-REVFDB+4 : 0791. 
0148 F 208 PUSHAB SD_PRET + 0793 
68 FB CALLS #1; CL ISPRESENT : 
68 01 0 F INSV RO. #7, #1, DIFS$GL_IGNORE : | 
0118 6 OF PUSHAB sp_TRALL ING SPACES ; 0796 
68 FB CALLS #1; cul PRESEN : 
68 01 0 F SV RO. #3, #1, DIFSGL_IGNORE : 
0128 (6 OF PUSHAB SD_SPAC ING + 0795 | 
8 1 F CALLS #1; cu PRESENT : 
68 01 4 F INSV = RO, #4, #1, DIFSGL 1 GNORE 3 
67 1 BBC #3, DIFSGL_FLAGS, 21$ 0798 
67 é 81 $82 #16, DIFSGC_FLAGS ; 0800 | 
6B 0 BISB2 #2, DIFS$GL_IGNORE : 0801 
0158 (6 OF 21$:  PUSHAB SD_A ; 0807 | 
68 gi FB 0 of CALLS #1, CLISPRESENT : 
67 01 00 0 £0 00 3 INSV RO. #0, #1, DIFSGL_FLAGS : 
016¢ (6 9F 0037 PUSHAB $D_HEXADECIMAL > 0808 | 
68 1 Fe 0378 CALLS #17 CLISPRESENT : 
67 01 01 0 £0 00 3 INSV RO, #1, #1, DIFSGL_FLAGS ; 
017¢ C6 OF 0038 PUSHAB $D_0 : 0809 
68 1 re 0 87 CALLS #17 CLISPRESENT F | 
67 01 02 0 FO 0038A INSV RO. #2, #1, DIFSGL_FLAGS : | 
68 Ab OF O038F PUSHAB SD. + 0814) 
68 1 FB 00 3 CALLS #17 CLISPRESENT ; 
01 «A? 01 07 0 F 0 9 INSV RO. #7, #1, DIFSGL_FLAGS+1 : | 
OE 0 i 98 BLBC =—OéaR ; 
000000006 00 9F 0039E PUSHAB DIFS$GL_OUTDESC + 0815. 
68 Ad SF OO3A4 PUSHAB $D_OUTPU ; 
69 re A7 CALLS CLISGET_VALUE : 
1 AA BRB 23$ ; 
1€ on A 8 AC 228: BLBS _DIFSGL_FLAGS+1, 23$ + 0816) 
00000006 00 SF 003B0 PUSHAB DIFS$GL~OUTDESC ; 0817 | 
0000000' EF 9F 00386 PUSHAB SYSSOUTPUT+ : 
08 AE 00000000' EF 9a 0038C MOVZBL SyssourPur. 8(SP) : 
AE 9F 003C4 PUSH SP) F 
000000006 00 03 FB 003C7 CALLS #3, LIBSSCOPY_R_DX ; 
00000000" EF 9F OO3CE 23 PUSHAB FIND MASFILE > 0823 
9¢ AG OF PUSHAB SD _IAPUT F 
69 FB 00307 CALLS #27 CLISGET_VALUE : 
000000006 9F OO3DA PUSHAB DIF se. MASFOB > 0824 
15 AA 1 FB 00360 CALLS #1, GETCHBARQUAL ; 
38 A 3F £4 PUSHAB DESC + 0829 
C A OF 003E7 PUSHAB SD_INPUT1 F 
9 F EA CALLS #27 CLISGET_VALUE : 
2 D E MOVL R STATUS ; 
OA 3 . BLBC STATUS, 248 : 
000000006 F 003F PUS DIFSGL REVFDB : 0830. 
15 FB OO3F CALLS #1, GETCHBARQUAL ; | 
000000006 00 9F FD 24$:  PUSHAB DIFSGL RE VDESC > 0831 
AC AG OF 405 PUSHAB SD _INPO! : 
69 02 FB 004 CALLS #27 CLISGET_VALUE ; 


—— eee 


14 
DIF _GETCMD 15-5e <1 :39: AX-11 Bliss-32 V4.0-74 Pa 8 D 
Me tt DIFSGETCMD Process command Line 12-808- 1382 93:79:38 YotF SRE dite CMD .832; - (85 Vv 
12 } 2 BLBC 0, 25$ : 
18 f ¢ LBC = STATUS, 26$ : 3 
000000006 DD SH mDiFS fOOMNYF I : a 
000000006 00 1 8 fe Af rresstoP . : OB 1| 
09 258:  BLBC TATUS, 26$ : 
000000006 00 28 «AE 8 f MOVC3 #8, DESC, DIFSGL_REVDESC ; | 
000000006 F A 26$:  PUSHAB DIF SG REVFDB ; | 
15 AA FB CALLS #1, GETCHBARQUAL ; 
000000006 0 3F PUSHAB DIFSGL_CMDESC + 0843. 
. 03 Pe t3p attics ; “ E 1$6et VALUE ; | 
03 69 6 e} BBC #6, DIFSGL_FLAGS, 278 + 0848 | 
7 1 § rey, BISB2 #1, DIFSGL-FLAGS : 0849 
E 01 «A? 47 27$ BLBC —dDIF SGL FLAGS #1 28$ ; 0851 | 
68 40 ar 8 a BISB2 #64, DIFSGL_IGNORE : 0853 
68 8 F BA 0044F BICB2 #128, DIFSGL IGNORE > 0854 
01 OA 19 A : BICB2 #16, DIFSGL_FLAGS+ : 0855 
19 11 BRB 29$ : 0851 
67 93 9 288 TSTB = DIFSGL_FLAGS + 0857 
15 1 B BLSS 298 : 
M3 9000 006 00 €8 00450 BLBS DIFSGL_MASEDB+36, 9$ : 0858 
07 000000006 00 €E8 00464 BLBS DIFSGL-REVFDB+36, 29$ : 0859 
03 67 6 ; 468 BBS a6 DIFSGL_FLAGS, 29S + 0860 
67 6 BISB2 #32, DIFSGC_FLAGS : 0861 
1 900000006 0 D re 298:  MOVL  DIFSGL_MERGED, R1 > 0865 
30 00000006 0g 04 mOvL DIFSGL MATCH, RO : 
1 15 004 BLEG §6=_-«308 : | 
DD PUSHL RO + 0867 | 
1 0D ? PUSHL R1 : | 
2 0D 9 PUSHL #2 F | 
000000006 8F oD PUSHL #DIF$_MRGGTMTCH : | 
000000006 f CALLS #4, LYIBSSIGNAL 3 | 
000000006 0000006 9 D 9 MOVL  DIFSGL_MATCH, DIFSGL_MERGED : 0868 | 
1 i 0G DO 004A3 30S: MOVL DIFSGL-PARALLEL, R1 3 0871 | 
0 00000006 9 p AAA MOVL DIFSG “MATCH, RO ; 
1E 15 00484 BLEG )6—ss318 : 
20 Dd PUSHL RO > 0873 
1 0D PUSHL 1 : 
2 DD 004BA PUSHL #2 ; 
000000006 8F oD PUSHL #DIF$_PARGTMTCH : 
900000006 Te CALLS #4, LIBSSIGNAL F 
G 000000006 00 »b MOVL DIFSGL_MATCH, DIFSGL_PARALLEL : 0874 
1 p D4 31$: MOVL #1, R : 0877 
4 7 RET > 0878 


3; Routine Size: 1240 bytes, Routine Base: SCODES + OOF4 


DIFSGETCMD Process command Line 1$-Sen-1984 93:93:38 OlF SRE iDEE ech "OD: 933! 


o 
oO 


oo 
SRESSELSSP SSIES ECE SS 


Sax 


POAAAAAOAOAS 
OS nt at at at ot et 


SOONOUS WO 


ROUTINE getfilename (fab) = 
BEGIN 


i FUNCTIONAL DESCRIPTION: 

This routine returns a string descriptor for a file. 

: Inputs: 

} fab Address of the fab 

} Outputs: 

Routine value is address of string descriptor for file name 
‘ 


fab : REF BBLOCK; 


BIND 
nam = .fab Cfab$l_nam] : BBLOCK; 


OWN 
filedesc : BBLOCK(dsc$c_s_bin]; 


IF (filedesc C scSy length) = .nam ingate te ae 0 '!If resultant name present 
THEN filedesc a_pointer) = “nan nan$ 
ELSE IF faeces” dSc$w_length] = .nam fnaasae est) NEQ 0 !If expanded name present 
ag ecin dsc$a_pointer] = .nam (nam$T_esa] 
filedesc fdsc$w. length] = .fab Cfab$b_fns); e filename string 
tiledesc dsc$a_pointer] = .fab Cfab$T_fna); us all else fails 


RETURN filedesc 
END; 'Of getfilename 


~PSECT SOWNS,NOEXE ,2 


00044 FILEDESC: 
-BLKB 8 


-PSECT SCODES.NOWRT,2 
0004 00000 GETFILENAME : 
WORD 


. Save R2 
2 00000000° ft 9 MOVAB FILEDESC, R2 
4 MOVL FAB, RI 
9 g A mov 0(A1), RO 
6 Ay He S38 mov Zu (RO), FILEDESC 
04 A2 04 {5 D MOVL 4 (RO), FILEDESC+4 


<o 


DIF _GETCMD 15- 9: AX-11 Bliss-32 Vv 4.074 P | 
wet DIFSGETCMD Process command Line 1b- Sep 198 93; 3 +f; DIF .SRCID PGETCMD MD .8 pee — a 
16 11 yoorc BRB 3$ : | 
62 0B a3 i 1$: ROV ZB (RO), FILEDESC ; 0907 
06 A2 0c AQ MOV (RO), FILEDESC+4 ; 0908 

6 34 Al B 28: MOVZBW (RI), FILEDESC : 091 

06 A C al p f MOVL 44( FILEDESC* 4 : 091 

5 62 9 3$: MOVAB FTeepegc : 091 

04 7 RET : 091 


; Routine Size: 56 bytes, Routine Base: SCODES + OSCC 


eee ee 


Ve 
DIFSGETCMD Process command Line 13-Sen- 1984 13:93:38 ote saeioitcetcmesoSee 


se 
és 
& 


16 1 GLOBAL ROUTINE difSopen_mas = 
4 BEGIN 
91 ; Open the master input file 


LOCAL 

xabfhc : SXABFHC_DECL, 
status, 

strstatus; 


status = LibSfind_file(find_masfile, 
TiSgl masdesc . tind context, 
odiT$gl_masdesc); !No default file spec 


oo0oo 


VFA “ODODE VNAVN ES UO "OOOO 


If NOT .status 
THEN BEGIN 
If .status EQL rms$_naf 
HEN status = rms$_fnf; 
SIGNAL (di f$_openin,1,dtf$gl_masdesc, 


-Status, 
- find context(fab$l_stvJ); 
END; 


Set pointer in FDB to NAM block 


If .dif$gl_masnam EQL 0 
THEN BEGIN 
difSgl_masnam = pine contents (900s nen?) 
PUSS 08 TERE ESRL neater = .find_context(fab$l_nam); 


IF .dif$gl_masnam(nam$v_wildcard] 
THEN STGNAL_STOP(dif$_nowild); 


initfile(dif$gl_masfdb,0,.find_context); 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


' 

: Open the file 

SXABFHC_INIT(xab=xabfhc, 
n 


xt=Q); 
find_context(fab$l_xab) = xabfhc; 
status = SOPEN(fab=. find content ; 
per etetus s strScopy_dx(d f$gl_masdesc ,getfilename(.find_context)); 
-strstatus 

THEN SIGNAL _STOP(dif$_strcpyerr.0,.strstatus); 
If NOT .status 
THEN SIGNAL_STOP(difS_openin,1 ,dif$gl_masdesc 

.Status,.find_context tab$i_stv)); 


SESSSSSSSS SESS LSS LILES ELE S PCRS, 
MEMO OBNO VE WN "OC DOVNOuU Sewn 00 MEN O OONAUE wiry 


2 


ert 7 Save the IFI to close the file 

orf q!f8gt mas taol teste, 141) = ,find_context(fab$w_ifi); 
67? : Connect the record stream 

$79 Status = SCONNECT(rab=dif$gl_masrab); 

678 If NOT .status 


en a 
Be Be Se Be Se Se Ge Fe Se Se Se Ge Se Se Se Ge Se Se Se Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Se Se Ge Se Se Se Ge Se Gs Ge Fe Se Se Ge Se GH Se Ge Ge Se Se Se Ge Se Ge we 


| 
| 
| 
i 
i 
| 
| 
| 
| 


ree Bt 


ae. 


—_—-_— 
} 


DIF _GETCMD a3 1984 2:39:15 AX-11 Bliss-32 V4.0-74 P 
Mbu2000 DIFSGETCMD Process command Line 14- Sep-1984 ( 79550 DIF .SRCID ice ich MD .832; age 185 


3; 679 THEN SIGNAL _STOP(dif$_openin,1 ,dif$gl_masdesc 

; 6 Status, .dif$gl_masrablrab$l_stvJ); 

; ? ¢ Allocate a buffer big enough to hold the largest record 

; 6 allocate_ubf(xabfhc,dif$gl_masrab); 

: : 5 pine contextlfab$l _xab) = 0; ! So S$SCLOSE doesn't try to access XAB 
: 6 i 1f /COMMENT_DELIMITERS was not specified, attempt to 

; ° : divine the delimiters from the file type table 

; 690 if Nor nes Inet fle gstdit$y -conget] OR (di f$gl_commdesc Cdsc$w length] EaL 0) 
; 691 0 TO°dif _maxlangs-1 

3 $3 ) 

; 69% typedata = dif$gl_typdata + (ieftdbse size) : BB ock, 

3; 695 istype = ,typedatal ftdb$l _typt : VECTORC,BYT 

: $36 thised -typedatalftdb$l weit : VECTORC, BYTE); 

: 698 IF CHSEQL(. “e L_masnam(nam$b_type),.dif$gl_masnam([nam$l_type], 

; 699 taistypelol cen eryeeeidOy ee ene 

; 00 THEN BEGIN 

; 44) IF NOT aseetytus aan r_dx(ZREF(.thiscdl(0J),thiscdlCi), 
: 70 THEN OB eMAC STO STOP (dit$ strcpverr 0,.strstatus); 

: ye gi tsat ace commf ls” = ,typedatalftdb$w flags); 33 

: 706 END; 

: 707 END; 

; 708 

; 709 RETURN true 

; 710 END; 


-EXTRN SYSSOPEN, SYSSCONNECT 
OFFC 00000 -ENTRY DIFSOPEN_MAS, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0916 


R10,R11 : 
5A 9000 006 8F 00 9002 MOVL #DIF$_OPENIN, R11 F 
5a 000 906 0 9€ 0000 v DIFSGE MASNAM, R10 F 
59 0 00 6 9 9E 9019 MOVAB LIBS$S ; 
38 000000006 9E 00017 VAB tH MASDESC RB : 
3 00000000° EF H O01 MOV FIND _¢O CONTEXT, R7 F 
E 0c UBL #48,°SP 3 
8 DD 00°28 PUSHL R8 > 0926. 
E D4 A CLRL. = = (SP) : | 
3 DD C PUSHL 7 : 
a pp PUSHL RB : 
06 A? OF 0 PUSHAB FIND MASF ILE : 
000000006 90 5 F CALLS #5, CIBSFIND_FILE ; 
0 DO 0003A MOVL RO STATUS : 
: 6 € BLBS = STATUS, > 0929. 
000182CA BF i b é cAPL STATUS. #99018 : 0931 
00018292 &F 06 49 MOVL § #98962, STATUS : 09 
3 67 0 50 18: MOVL FIND_CONTEXT, RO : $338 


DIF TCMD 
he=650 DIFSGETCMD Process command Line 


000000006 


000000006 


00000000v 


2c 00 


000000006 


000000006 


000000006 
900000006 


Or POOOCOMOouUn'yp 


NCOOGPY 


ooo 


AEM MOV OP NOM 


o 
Oo 
hag anode & 6 @ + desecpipaps 4 gi FETS 


COOOCCOCCoOOCoOoOooooooooo 


ooo 


—+—4 


aA AM 
TFHOWOMO SP OVNI EO 


RO r 


-—n 


SOCTOMS NODIO OCT OV IOMOV OMI "OOOO OOOCODW wr ooo "omMmov7T7—-o"VVTIVTT"7T 
SOOT 9T9FT MOOD “OOD VC F999 ODS SFVUBMBOWDVIVOTWIOWPBO MSO OO *FSIWIS OOOCCOMUV®WII0909 


DD WOAO8 000 NU $ OOO NOWMM & FONDS NO OM VVMOWOM NI MO POON PUD OOO 


MOVIMNOVUM1OO WF SOMONE ONO VNIVMNOVM10O8MNOui Pw OooYP 


te 
owon 


12-Sep-1960 12:19:20 EbtF-sneloiece cmp 8324 


12(RO) 
; ATUS 


a 

R11 
#5, LIBSSIGNAL 
JFSGL_MASNAM 


FIND CONTEXT, RO 

4 (RO), DIFSGL_MASNAM 

40(RO), DIFSGL-MASFDB+52 
FSGL_MASNAM, ~RO 


#1, LIBSSTOP 

FIND CONTEXT 

DIFSGL_MASFDB 

#3, INTTFILE 

#0, (SP), #0, #44, SRMS_PTR 


#11293, S$RMS_PTR 
FIND CONTEXT, RO 
KABFRC, 36(R6) 
#1, SYSSOPEN 

RO, STATUS 

FIND CONTEXT 

aye GETF .ILENAME 


RB 

aoe STRSCOPY_DX 

RO, STRSTATUS 

STRSTATUS, 5$ 

STRSTATUS 

=(SP) 

apiFs STRCPYERR 
, LIBSSTOP 
ATUS, 6$ 

FIND CONTEXT, RO 
(RO) 

STATUS 


Dawmun"MD 
—co — 


— —2§ 00 te HO el 


I 
CONTEXT, RO 

f DIFSGL_MASFDB+44 
Y 


DBDBVDBvVouvwWeonr"s 


———_—_——_— 


DIF _GETCMD 
Mitty DIFSGETCMD Process command Line 


— 


69 83 FB QOTIF 
neeed * + of : 
00000000v 44 os fe ; 
24 «AD D4 001 
08 000000006 00 8 E1 001 
000000006 13 12 
Ste Bit 
C i 14A 
50 26 OA § 14 
atte | 135 
: RE 
S § EGE 
52 00 50 = BO 01 23 20 B12 
37 12 00160 
000000006 00 9F pig 
7E 04 5 01 I 0175 
ee og Ree 
pomees ee O ai 
0D 2 E8 9 
4 DD 0018F 
7E 04 00191 
gg ommoooos He Be 
000000006 00 08 * BIR 
o D6 BAS 
000000006 8&F 36 pF hy 
50 01 00 00181 
04 00184 


; Routine Size: 437 bytes, Routine Base: $CODE$S + 0604 


3 15 
15-Se 
4-Sep-1 


~“ 
wr 


oo @ 
owe# 


10$: 


—— 
~me— 
PM 


13$: 


poi 


Be 93:49:20 


AX-11 Bt 
DIF .SRCIJD 


$-32 th ote 
FGETCMD.B32; 
#5, LIBSSTOP 

DIFSGL_MASRAB 
XABF HC 


#2, ALLOCATE_UBF 
fp CONTEXT; RO 


D1 


YABDBOwano—- wW-Cco-, 
Nr Keo 


STATUS, 10$ 
STRSTATUS 


#OIFS_STRCPYERR 


#3, LTBSSTOP 
B(R5), DIFSGL_COMMFLGS 


I 
1, #DIFSC_MAXLANGS=1 


- RO 


zo 
—re 


Bee Se Se Se Be Be Be Se Se Se Be Se Ge Se Se Ge Se Se Se Fe Ge Se Fe Se Se Se Se Se Se Se Se Se Se 


18-50-1984 $3:73:33 AX-11 3h $ ¢ V4 .0-74 


Ni ted 
- DIFSGETCMD Process command Line 4-Sep-19 DIF .SRCJDIFGETCMD.832; 


5 1 GLOBAL ROUTINE difSopen_rev = 
BEGIN 


a as 8 


nxt=0); 
fabCfab$i_xabJ = xabfhc; 
; Set the master file nam block as the related file 


di f$gl_revnam{nam$\_rif) = .dif$gl_masnam; 


i See if there is a revision file specified. If not, 
then look for the next lower version of the master file 


if .fablfab$b_fns] EQL 0 
THEN BEGIN 
LOCAL 


verdesc : desc_deci, 

file_length, 

verlength, 

version, 

namrss : BBLOCK(nam$c_maxrss], 
,  werptr : REF VECTORC BYTE); 


Copy all of the master file spec except the file version field 


Aw 


verptr = CHSMOVE ((.61fS9l _pesneaCnan$l typed” 
-dif$gl_masnam([nam$\_rsa)+.dif$gl_masnam[nam$b_type]+1), 
-dif$gl_masnaminam$l_rsaj,namrss); 

tile length = .verptr = namrss; 

waresets 


sc$u_length] = nam$c_maxrss - .file_length; 
verdesc 


dsc$a_pointer) = .verptr; 
) Convert master file version number to binary 


LibScvt_dtb(.dif$gl_masnam nan$b_ver] -1, 
dif$gl_masnaminam$l_ver) + 1,version); 
verlength = 6; 


Now loop, looking for a lower version of the master file 
WHILE (version = .version - 1) GTR 0 
DO BEGIN 


NONE WP 0 OO NO NEW 0 OD NO MN EWN 9 DOONAN WAN (OOOO Ew O0O@ 


specus = SvESrABSdescr totert” 1M") .worlength.verdese,.vers tend; 

.Status 
THEN SIGNAL_STOP(dif$_sysfaoerr,0,.status); 

fab(fab$b_fns] = .file_length + .verlength; 

fabl fab$l_fnaj = namrss; 


ta 


Se Se Se Oe Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Se Ge Se Ge Ge Se Se Se Se Se Se Se Se Ge Se Se Se Ss Se Se Ge Se Se Ge Se Se Se Se Se Gene 


ce me ee ee a ed dd od dd = od SS = 


SELSSSSSRAGAERERRERERES 


Open the revision file 
LOCAL 
status, 
strstatus 
xabfhe : $xABFHC_DECL, 
fab : SFAB_DECL; 
initfile(dif$gl_revfdb,dif$gl_revrss, fab); 
SXABFHC_INIT(xaB=xabfhc, 
& 
4 
4 
4 
& 
& 


—Oce 


| 
| 


Page ai} 


Ea 


, <€9 


f 15 
yoaze00 DIFSGETCMD Process command Line 1a: et 7 $3: #3: 8 O1F LSRe bi GeicMD o3ee4 Page if 


; 769 1 5 IF (status = SOPEN(fab=fab)) 

7 1 4 THEN he LOOP 

s @ 1 4 ELSE -Status NEQ ras$_fnf 

: ae ! 5 en: THEN EXITLOOP; 

: 77% 1 IF version EQL 0 'Did we find one? 
: oo? : on THEN SIGNAL _STOP(dif$_nolowver,1,dif$gl_masdesc); 
; re : 4 ELSE status = SOPEN(fab=fab); 

; 718 : strstatus = str$copy_dx(dif$gl_revdesc,getfilename(fab)); 
: 781 1074 2 If NOT .strstatus 

3 ¢ : fe . aes SIGNAL _STOP(dif$_strcpyerr,0,.strstatus); 

3 .Statu 

oa 1 8 THEN SIGNAL. STOP(dif$_openin,1 atthe}: revd te 

: ’ 5 ! 8 .Status,.fablfa $T_stv 

; 78s ey ; Save the IF1l for $CLOSE 

; 189 1088 dif$gl_revfdbl fdbSw_ itil = . fab fabsw_ifi); 

3 791 1084 Connect the record stream 

; 738 1086 status = 5 SCONNECT(rab=dif$gl_ revrab); 

; 795 1088 THEN SIGNAL _STOP(dif$_openin,1,dif$gl_revdesc, 

; 296 1089 .Status,.dif$gl_revrablrab$l_stv)); 
: 798 1091 i allocate user buffer 

; 799 1036 : 

; 300 OL allocate_ubf(xabfhc,dif$gl_revrab); 

; 80¢ 1095 2 RETURN true 

; 680 1096 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


46C 55 21 00 QP ACL: ASCII \!UL\ : 
90000003, 00 é P.ACK: :LONG 3 : 
000000" 00 “ADDRESS P.ACL : 

.PSECT S$CODES,NOWRT,2 

OFFC 00000 ENTRY DIFSOPEN. REV, Save R2,R3,R4,R5,R6,R7,RB,R9,~; 1005 

B 006 F pO MOVL ales. OPENIN, R11 : 
A 6 3 MOVAB SYSSOPEN Rip ; 
9 G E 9 MOVAB DIFSGL_R REVR : 
8 3 1 MOVAB DIFSGL REvDESt. Ree ; 
€ 3 MOVAB L{B55 108 TOP, 3 
£ FE CE 9€ 0002 MOVAB -396(SP). SP : 


. 
Page 77 Vv 
15 AX-11 8 iss-32 V4.0-74 (11) 
-$ep-1984 23:39: FGETCMD.832; ; 
TCM 6 Line 12-8601 984 93:39:56 DIF .SRCIDIFG + 1016 
F SS comman ; ; 
wbs=660'" LF SGETEHD Proce tf ¢ PUSIAR Paa,nevass 
G PUSHAB DIFSGL * 101 : 
u00b00e a i. SE bb, 66, SRMS_PTR : 1018 
00000000v cr vA MOVC > : : 
00 £ . 4 #11293, SRS PTR : 1019, é 
ec BF 4 mov FABs : 1023 : 
Ree AD 3 ROVE” DIFSGL MA 16 ; 1028 ; 
+ e € 
a 58 6 000000006 90 53 Ovi Re, DIFSCL REVNAR : | : 
000000006 oA eeu fs ae 
50 a6 4 Ag "8 RovgaL gotRes a eae 
2 Sih BRB na tts Nass Pos 
MOV NAMRS NGTH - 4) : 
oe Me " p oe 4 et ee Pits: veRer Tis #258, VERDESC 1008 | ; 
54 5 ROVL” —VERPTR. VEROES ; 1049, ; 
80 AD § 91 PU #1, 84(R6), =(SP) : 1049 | ; 
0 a MOVIBL 61(R6), <¢SP) ; | : 
7e “ A : DECL” CSP) ; | : 
7€ ms 909¢ Pits au LIBSCVT_DTB : 1051) ; 
0 CLAL ERLENG : : 
000000006 00 04 A OOKs 2s: DECL VERSION, : 1057, : 
rs ~ PUSHL VERSION : | : 
FF7C ¢ PUSHAB VERLENGTH ; | : 
é : SHAB P.ACK ; | ; 
OC 8 PU #4, SYSSFAO : | 
000000006 99 C3 Ove RO, STATUS £1089. 
3 3 PUSHL — STATUS ; | : 
CA US ADIFS. SYSFAOERR ; | : 
PUSHL © #DIFS : 1060. : 
000000006 09 CALL iter n, LENGTH, FAB+S2 : 1061, : 
BB AD ‘ So 8 D ROVAB NAMRSS, : | : 
6 #8 Be AD 9F O00E CALLS” #1. SYSSOPEN : ; 
D00E Rout? ROL tT Tus ; | : 
8 . BLBS STATUS, 4$ , OM : 
9 4 CMPL STATUS, #98962 > 1067. 3 
EQL : | ; 
00018292 8F 88 i aa: Yet  Sensten > 1068. 3 
1 #4 PUSHAB DIF SGL_MASDESC : | : 
000000006 F PUSHL ouver : 
PUSHL #DIF$_NOL * 1028 
000000006 1 CALLS 4 LTBSSTOP : 1028 
& A Oe ERS fhe svssoren 
6A 


ee 


15 
voereno DIFSGETCMD Process command Line 13-Sep-1984 $3:39:50 Dif sRedDiFGe SCM 93204 Page ty 


1 
52 50 D0 0011 MOVL _—RO, STATUS ; | 
84 AD F ing 6$ PUSHAB + 1072. 
FCF6 OCF 1 FB 0011 CALLS #1, GETFILENAME : | 
DD 00110 PUSHL R : 
DD OO11F PUSHL R : | 
000000006 00 FB 121 CALLS #2, STRSCOPY_DXx : 
D E8 00108 BLBS  STASTATUS, 7$ : 1074 
0 OD 00128 PUSHL  STRSTATUS : 1075. 
E D4 00100 CLRL. = = (SP) : 
000000006 8F DD Od12F PUSHL aDiFs STRCPYERR : | 
67 3 FB 135 CALLS #3, LYIBSSTOP : 
E EB 00138 7$: BLBS STATUS, : 107 
90 AD DD 001 PUSHL FAB+ : 1078 | 
DD 001 PUSHL STATUS : 
DD 0014 PUSHL RB ; 1077 | 
1 DD 0014 PUSHL #1 F 
: DD 00144 PUSHL : 
67 0S F 146 CALLS #5 LIBSsTOP : 
000000006 00 86 AD BO 00149 8S: MOVW FAB+2, DIFSGL_REVFDB+44 + 1082 | 
59 DD 00151 PUSHL R9 + 1086 | 
000000006 99 1 FB 00153 CALLS #1, SYSSCONNECT : 
DO 0015A MOVL RO, STATUS ; 
OE £8 0015p BLBS STATUS, 9$ > 1087) 
0c Ad DD 9160 PUSHL DIF$GL_REVRAB+12 + 1089) 
3 DD 0016 PUSHL STATUS ; 
DD 00165 PUSHL R + 1088 | 
oi DD 00167 PUSHL #1 : 
8 DD 00169 PUSHL R11 : 
67 Q FB 00168 CALLS #5, LIBSSTOP : 
9 DD 016 98: PUSHL R9 : 1093 | 
D4 AD 9F 001 PUSHAB XABFHC ; 
00000000v EF 2 FB 0017 CALLS #2, ALLOCATE UBF : 
0 1 B0 0017, MOVL #1. R + 1095 
4 00170 RET : 1 


; Routine Size: 382 bytes, Routine Base: S$CODE$S + 0789 


5 
14.8 -1984 239: AX-11 Bliss-32 V4.0-74 
DIFSGETCMD Process command Line 122808= 138s 93:73:33 YOTF SRC S$fGe echo e300 
GLOBAL ROUTINE difSopen_out = 
BEGIN 


ze 
3 


Se 
o332 


SLRLELRENLS 


—OC@ 


Open the output file 


LOCAL 
status, 
strstatus 
fab : $FAB_DECL; 


; Initialize the FAB and NAM blocks 


SFAB_INIT(fobatad. 
fns=.dif gt outdescidsc$u_ length) 
fna=.dif$gl_outdesc dsc$a-pointerd, 
topeetp 
dnm=' .DiF*, 
rat=cr, 
fac=put 
nam=di f$gl_outnam) ; 


SNAM_INIT(nam=di f$gl_outnam, 
rlfz, {$9 masnam, 
esa=dif$gl_dutrss, 
ess=nam$c_maxrss, 
rsa=dif$gl_outrss, 
rss=nam$c_maxrss); 


bs 


vuvVvVvUU 
a dd od 


Od 8 4 9 4 2 


ao de 


vuuvuvv 


ee a a a ed ad a ed A td 4 3 4 


1 
Attempt to open the output file 


status = SCREATE( fab= fab) 
strstatus = str$copy_dx(dif$gl_outdesc,getfilename(fab)); 


If NOT .strstatus 
THEN SIGNAL_STOP(dif$_strcpyerr,0,.strstatus); 
If NOT .status 
THEN SIGNAL_STOP(dif$_openout,1,dif | outgeee. 
.Status,.fablfab$l-stvJ); 


dif$gl_outifi = .fablfab$w_ifi); 


f 
: Initialize the RAB and connect the record stream 


$RAB_INIT(rab=dif$gl_outrab, 
rac=seq 
fab=fab); 
IF NOT (status = SCONNECT(rab=dif$gl_outrab)) 


THEN SIGNAL_STOP(dif$_openout,1,d \_outdesc, 
Seabee i Hee entitle 


MEUM OC OOVNOVESWUN “OOOO U EWN 


WN =O OOVNO UNE WN “O OONOufe ur 


SSS See Ure 


NOUS WO O® 


ee ee od et 


i If mo /LINE_WIDTH specified, determine width of device 
if NOT .difSgl_flags(dif$v_width) 


PPPPAAAAIN 


—CO0@~1e Vu 0 O@ 


MUMS SLL 


wn —O0@ 


ee ee ed a od = = 


VOC=COD  =—=—«éDIFSGETCMD Process command Line $-$e-1984 $3:79:30  Yote'SePSoERGE Scho :o3004 raed) 


HF ; THEN find _List_width( fab); 
1 
11 ; 


RETURN true 
END; 


-PSECT SPLITS,NOWRT ,NOEXE,2 

46 49 44 2€ 0022C P.ACM: .ASCII \.DIF\ 3 
-EXTRN SYSSCREATE 
-PSECT S$CODES,NOWRT,2 


OFFC 00000 ENTRY DIFSOPEN, OUT, Save R2,R3,R4,R5,R6.R7.RB.R9,-; 1097 
8 9 006 0 9 9002 MOVAB DIF $eL OUTRSS, R11 : 
A 6 MOVAB LIBS$STOP, F 
9 000000006 00 of 001 MOVAB ODIFSGL_OUTDESC, R9 : 
: 99000006 0 9E MOVAB $RMS PTR, R : 
00000006 ge Olt MOVAB y FSGL_OUTNAM, R7 : 
E B0 Ar 9E MOV -80(SPY, SP ; 
8F 00 be 00 2c 99 9 movcsS #0, tsps. #0, #80, SRMS_PTR + 1117 
6E 5003 F 8B 1 MOVW $RMS_PTR : 
0% AE 20000000 f 09 09 MOVE asses7bote, ann _PTR+4 : 
1 AE 0202 8F B0 0045 MOV asia: nas Pt Bras30 : 
AE 67 004 MOVAB DIFS$GL_OUTRAM $rm R+40 : 
C AE 04 Ad p 004C MOVL DIFSGL-OUTDESC +4 "Snms _PTR+44 : 
6 AE 00000000" EF 3 0051 MOVAB P.ACM, $RMS_PTR+ : 
> a 9 0059 MOVB DIF SGL QUTDES S$RMS_PTR+52 : 
5 AE 4 90 00050 MOVB. #4, S$RAS_PTR+ ; 
BF 00 6E 9 2c 0061 MOVCS #0. (SP); #0, #96, SRMS_PTR > 11246 
67 6002 Br 0 00069 movw 4578, sans PTR : 
2 a? 1 BE MNEGB SRAS_P ; 
4 A? 68 0 MOVAB Dif sc. GOTRSS SRMS_PTR+4 : 
A A? 1 HH: 007 MNEGB SRAS PTR+10 ; 
C av : 7A MOVAB Dif sc. MSOTRSS. SRMS_PTR+12 : 
10 7 000000006 D 7E MOVL  DIFSGL"MASNAM, SRMS~PTR+16 ; 
F DD PUSHL > 1128 
000000006 90 F CALLS . SYSSCREATE : 
0 »D F MOVL RO. STATUS : 
: DD 00092 PUSHL § : 1129 
FBFC OCF FB 00094 CALLS #1, GETFILENAME ; 
9 DD 00099 PUSHL R F 
DD 00098 PUSHL R ; 
000000006 00 Fe 90 CALLS #2 STRSCOPY Dx ; 
D £ Ad BLBS § STRSTATUS, 18 ; 1131 
DD 000A7 PUSHL STnStATUS" : 1132 
E 04 000A9 CLRL. = =( SP) F 
000000006 BF DD AB PUSHL apiFs STRCPYERR : 
6A ; FB CALLS #3, LTBS$STOP ; 
12 E B4 1$: BLBS status. : 1133 
0c AE DD 00087 PUSHL FAB+1 : 1135 | 


i 


DIFSGETCMD Process command Line 


g DD BA PUSHL 
fs 
000000006 8F DD £0 PUSHL 
000000006 $0 02 ne iC ¢8 2s OV dL 
0044 8F 00 6E 0 C 4 moves 
68 4401 BF 0 D9 MOVW 
1E AB 94 Dd CLRB 
sec ve 8 0D of PUSHL 
000000006 90 F 3 CALLS 
§ 0 Oo ef VL 
1 : E F BLBS 
Oc AB DD F4 PUSHL 
28 DD OO00F? PUSHL 
dD ohre SHL 
1 0D FB PUSHL 
000000006 8F DD sta) PUSHL 
6A 5 4 10 CALLS 
09 000000006 00 1 € 106 3$: $ 
E 0D 001 PUSHL 
00000000v fF 3 FB 0011 CALLS 
0 1 00 00117 4$: MOVL 
04 OO1TA RET 


; Routine Size: 283 bytes, Routine Base: SCODE$S + 0937 


HicBeo- 1966 95:49:18 


AX-11 8 isec3e V4.0-74 
DIF .SRCIDIFGETCMD.832; 


STATUS 
ay 


ADIFS. op OPENOUT 
He 
Fabs pir Seu oy 1F1 
, (SP), & “a. $RMS_PTR 
#17409, SRMS_PTR 
SRMS_PTR+30 ~ 
ue. “$RMS_PTR+60 
, SYSSCONNECT 
RO STATUS 
TUS, 3$ 
DIFS$GL_OUTRAB+12 
ATUS 


“non 
cet — Sow SF 
>. 


rt 

#D1F$_OPENOUT 

#5, LIBSSTOP 

#1, DIFSGL_FLAGS+I, 4$ 
#1, FIND_LIST_WIDTH 

#1. RO 


7 


Be Se Se Se Se Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Fe Ge Ge Ge Ge Se Ge Se 


41) 
(12). 


NN 


Be Se Se Se Ge Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Ge Se Se Ge Se Se Ge Ge Se Ge oe 


a a hs a ts 
ee et ot a “st a 2 de a 2) 2 ds a a a as a tt tt 


Fwn 0 0@ VEN 9 OONOUS UW OC OO w 


0050 =F 


DIFSGETCMD Process command Line 


Sieve GBHBDE Ie babSdavadt td 8334 
GLOBAL ROUTINE difSclose_in (fdb) = 
BEGIN 
Close an input file 
Inputs: 
fdb address of associated FDB 


meme me meme ee 


fdb : REF BBLOCK; 


IND 
inrab = .fdb{fdb$l_rabptr] : BBLOCK; 


LOCAL 
st atus 
fab: $FAB DECL; 


oh INIT( fab=fab); 
TabSw_ifi] = .tdblfdb$w_ifi); 


Disconnect the record stream 


jnrabCrabst fab) = 
stetus = s sors SEGNNECT Crabs inrab): 


THEN SIGNAL (di tS closein,1,.fdbdCfdb$l_fildesc), 
Ss status,.inrablrab$t_ stvJJ; 


; ig = pe eae enevoretts 
HEN SIGNAL (di tS closein,1,.fdblfd $l. fildesc), 
status,. fablfab$l_ stv 


RETURN true 
END 


sEXTRN SYSSDISCONNECT, SYSSCLOSE 


0 .ENTRY DIFSCLOSE_IN, Save R2,R3,R4,R5,R6,R7,RB,RO 
9 Rue ieee fo 
MOVL apiF$ CLOSEIN, RB 
MOVAB 
‘ MOVL si sy 
MOVL 48(A7) 
mOVCS atta “00, #80, $RMS_PTR 
6E 5003 mOVu os SANS PTR 
16 AE MOVB Rte? 
1F OA MOVE ne “Pine 
ge A 2c MOV t tr?) 
rs MOV FAB, 46 hah 
$ PUSHL Re 
000000006 00 CALLS . SYSSDISCONNECT 


Pete Se Se Se Se Se Se Se Se Se Ge Sete Ge 


99 (535 


15 
voa2e00 DIFSGETCMD Process command Line 1B-Se0-1984 13:33:38 olf SREdDIT GET CMD O32, 


2 D MOVL RO, STAT 
af H pe BLBS stAry ‘ 3 
OC A6 OD PUSHL (R6) 
52 DD PUSHL : ATS 
=o & ee 
: DD PUSHL Rg 
69 FB CALLS #5, LIBSSIGNAL 
f ny) PUSHL SP 
000000006 9 F CALLS #1, SYSSCLOSE 
D MOVL RO. STATUS 
F é BLBS status. 
OC AE DO PUSHL FAB? 
52 DD PUSHL Sra § 
38 «0A? OOD PUSHL 56(R7) 
1 DD PUSHL #1 
§ DD PUSHL RS 
$9 FB CALLS #5, LIBSSIGNAL 
0 1 B MOVL #i, RO 
4 RET 


; Routine Size: 122 bytes, Routine Base: S$CODE$S + 0A5S2 


15 
voero0 DIFSGETCMD Process command Line 13-00-1984 13:73:36 OTF |Snedoitcetcmose32; ce gad 
; 905 


: 1195 1 GLOBAL ROUTINE dif$close_out = 
; i BEGIN 
; : 1% Close the output file 
; 910 1 0 LOCAL 
3 4 1 status 
; 98 Q fab : $FAB_DECL; 
> 914 1 $FAB INIT(fab=fab); 
; 913 5 © fablfab$w_ifi] = .dif$gl_outifi; 
; $17 i ; Disconnect the record stream 
; 319 1 : status = SDISCONNECT(rab=dif$gl_outrab); 
; 920 1 19 If NOT .status 
; 921 121 THEN SIGNAL (dif$_closeout,1,dif$gl_outdesc, 
; : § ! \§ -status,.dif$gl_outrabfrab$i_stvJ); 
: 926 1214 2 status = SCLOSE(fab=fab); 
: 925 1215 If NOT .status 
; 9 $ 1 6 THEN SIGNAL (dif$ yet 1,di1f$gl_outdesc, 
. % 121 .status,. fablfab$l_stvJ); 
; 928 1218 
: 929 1219 RETURN true 
; 9 1220 END; 
O1FC .ENTRY DIFSCLOSE_OUT, Save R2,R3,R4,R5,R6,R7,RB  ; 1195 
8 900000006 00 9F VAB  LIBSSIGNAC, RB : | 
0 G 8F p MOVL &#DIF$ CLOSEOUT, R7 : 
6 000 006 09 3 MOVAB maotseye see’ Rb : | 
0050 = 8F 00 6E 00 2c moves #0, (SPS, #0, #80, SRMS_PTR 3 1206 
6E 5003 8F MOVW #20483, SRMS_PTR : 
16 MOVa 3s fe, SRis_PTREGe : | 
02 G Rove DIFSGL-OOTIFI, FABS2 ; 1205 | 
tittiesty oF PUSHAB DIFSGL. TRAB- : 1309. 
000000006 1 F CALLS #1, SYSSDISCONNECT ; 
08 MOVL RO. STAT : 
é BLBS = STATUS, : 1219 
000000006 DD PUSHL DIFS$GL_OUTRAB+12 $1212. 
é DD PUSHL STATUS : | 
DD PUSHL Ro : 1211 
1 00 PUSHL @ ; 
? oo PUSHL R7 3 
68 5 FB CALLS #5, LIBSSIGNAL ; 
; oD PUSHL SP > 1214 
000000006 F CALLS #1, SYSSCLOSE ; 
E 3 i BL BS oreo = 424 
OC AE DD PUSHL PABST” : 1333 


} 
| 
| 
| 
| 
| 
| 
| 
| 
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| 
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; Routine Size: 125 bytes, Routine Base: SCODES + OACC 


$ 3 AX-11 Ol fone 


V4.0-74 


DIF .SRCIBIFGETCMD.832; 


LIBSSIGNAL 
RO 


Ba Be Se Se Se Se Be 


te er ee 


16 

F _GETCMD ise $1984 23:39:15 AX-11 8B 
yOe2000 DIFSGETCMD Process command Line 12-Sep-19 4 93:79:38 
 ¥ ¢ 1221 1 ROUTINE initfile(fdb,rss,fab) = 
; : § BEGIN 
3 935 1226 ! Initialize data structures in preparation of 
3 g : 5 } opening a file 
3 4 . : 3 Inputs: 
; 940 1 : fdb Address of file's FDB ; 
; 941 1 9 : rss Address of resultant name string (optional) 
3 are 1 : fab Address of FAB 
; 9% 1 ¢ : 
: 9446 1 MAP 
; 945 1234 fdb : REF BBLOCK, 
; Bee 1235 fab : REF BBLOCK; 
: 94 1 $ 
; 948 1 BUILTIN 
; 949 1238 NULLPARAME TER; 
; $50 1239 
; 951 1240 BIND 
3 828 1241 rab = Ot 1ott rabetr sd : BBLOCK, 
; 95 1 ¢g nam = .fdb[fdb$l_namptr] : ee 
3; «954 124 fildesc = .fdb(fdb$l_fildesc) : BBLOCK; 
3 995 1244 
; 956 1245 } 
; 957 1246 ! Initialize the FAB 
; 958 124 ! 
; 959 1248 IF NOT NULLPARAMETER( 2) 
; 960 1249 THEN BEG 
: 961 P 1250 SFAB_INIT(fab=. fab, 
3 366 P 1251 Nam=nam 
: 96 P 1 3 tns=.fildesc(dsc$w_length) 
3 964 P 125 fna=.fildesc dsc$a_pointerd, 
; 965 1254 fac=get); 
; 966 1255 
; 967 1 2 : 
; 968 125 ! Initialize the NAM block 
; 969 1258 : 
; 970 P 1259 SNAM_INIT(nam=nam, 
3; 971 P 1260 esa=.rss, 
3 ar8 P 1261 ess=nam$c_maxrss, 
3; 97 P 1 ¢ rsa=.rss, 
3; 974 126 rss=nam$c_maxrss); 
: 975 1264 3 
; oe 1265 
3; 97 1 4] : 
; 978 126 ! If no poss tort ity of need to access input records by RFA, 
3 44 ’ o8 then optimize file 1/0. 
; «981 1 $ IF NOT .dif$gl_ignore ctente exact] 
; 98 1271 OR ((.dif qt gnore AND NOT (ign$m_exact OR igr®m_pretty)) EQL 0) 
: 3 ! ’ THEN fab Cfab$v_sqo] = true; 
; 985 1274 } 
; 9 1275 ! Initialize the RAB 
: 98 127 : 
; 988 P 127 $RAB_INIT(rab=rab, 


DIF .SRC 


Page 


44 
=< 


(19) 


16 
Bs 1984 23:39:15 AX-11 Bliss-32 v4.0-74 p 47 
4 ety 7 93:79:33 oe age 


DIF _GETCMD 1 
Metts DIFSGETCMD Process command Line 14- DIF .SRCIDIFGETCMD.832; (15) 
> 989 P 1 78 fab=. fab, 
; 990 127 rop=loc); 
; 991 1 80 
; 99¢ 1281 2 RETURN true 
; 99 1282 END; 
O7FC 00000 INITFILE: 
.WORD Save R2,R3,R4,R5,R6,R7,.RB,RI,R10 : 1221 
5A 000000006 00 9€ 0000 MOVAB DIFSGL_IGNORE, R10 : 
5 4 aC 00 0000 MOVL FDB, RO 3 1241 
5 0 Aad 00 00000 MOVL  48(RO), Rg : 
5 4 ad 00 00011 MOVL 52(RO), R : 1248 
59 8 A b0 0015 MOVL 56(RO), RO + 126 
02 6C 91 00019 CMPB sé AP), #2 + 1248 
4A 1F 0001C BLSSU.'1$ : 
08 A 05 0001E TSTL 8(AP) : 
45 13 00021 BEQL ~=sés«s18 : 
56 OC AC 00 00023 MOVL FAB, R6 : 1254 
0050 = &F 00 6E 09 2¢ 99 d MOVCS #0, (SP), #0, #80, (R6) 
54h 5003 8F B80 0002F MOVW #20483, (R6) : 
16 6 02 90 00034 MOVB sf, 2 (Rs) ; 
1F AG 02 90 00038 MOVB #2, 31(R6) : 
8 Ab 57 00 0003C¢ MOVL 7. 40(R6) : 
C Ab 06 Ad bo 00040 MOVL 4(R9), 44(R6) : 
4 6 69 9 90045 MOVE (R9), 52(R6) : 
0060 8F 00 6E 09 2¢ 90043 MOVCS #0, (SP), #0, #96, (R7) ; 1263 
67 6002 = BF 80 00051 MOVW #24578, (R7) : 
02 AZ 01 F 90036 MNEGB #1, 2(R7} : 
04 A? 08 AC DO 0005A MOVL RSS, 4(R7) : 
OA A? 01 Hi 0005F MNEGB #1, 10(R7) ; 
OC a7 08 AC dO 00063 MOVL RSS, 12(R7) ; 
9 6A 06 £1 00068 1$: BBC #6, DIF$GL_IGNORE 38 ; 1270 
FFFFFFSF © 8F 6A : 006 BIT DIF SGL_IGNORE, #-19 : 1271 
50 oc ac OD 8607 2$: MOVL FAB, RO : 1272 
04 Ad 40 =soBF 8 007 BISB2 #64. 4(RO) ; 
0044 &8F 00 6E 0 C O07e 3$ MOVCS #0, (SP), #0, #68, (RB) ; 1279 
6B 4401 rf B0 80 MOVwW #17409, (RB) : 
4  A8 00010000 8F 00 000 MOVL #65536. 4(R8) : 
2 OC AC 06 009 MOVL FAB, 60(R8) ; 
5 01 »D 9009 MOVL #1, RO : 1281 
04 00098 RET : 1282 


3; Routine Size: 156 bytes, Routine Base: $CODE$ + 0B49 


16 
DIF _GETCMD 1S-S¢ 1984 23:39:15 AX-11 Bliss-32 V4.0-74 P 48 
vO0=000 DIFSGETCMD Process command Line 127805-1 986 $3:13:30 DIF .SRCIDIFGETCMD.832; 990 16) 


; 995 } ; 1 ROUT INE allocate_ubf(xab,rab) = 

3 399 1285 ! 

3 2o8 1 § ' Allocate a user buffer for records that cross block 
: 1 ' boundaries. 

3 1909 1 8 ! 

: 1001 1 ! Inputs: 

3 ISne 1290 : 

3; 100 1291 ! xab Address of FHC xab 

3; 1006 129 ! rab Address of RAB 

; 1005 129 ! 

s 1908 1294 MAP 

. 7% 1 32 xab : REF BBLOCK, 

; 1008 1 $ rab : REF BBLOCK; 

; 1009 129 

3; 1010 1 s LOCAL 

3 1011 | blocksize, 

ie oe 

3 + 3 1508 blocksize = MAXU(MAXU(.xabCxab$w_(irl],.xablxab$w_mrz)),512); 
3 95 1304 IF NOT (status = LibSget_vm(blocksize,rabCrab$l_ubf])) 
5 9 ; 05 THEN SIGNAL_STOP(. status); !eee 
3; 1019 1 09 rabCrab$w_usz) = .blocksize; 

3: 1020 1308 

3; 1021 1309 RETURN true 

3; 1022 1310 END; 


0004 00000 ALLOCATE_UBF : 
WORD 


. Save R2 ; 1283 
SE 04 C2 0000 SUBL2 #4, SP : 
50 . € p 000 MOVL XAB, RO : 1302 
51 A ao 3¢ 9009 MOVZ2WL 10(RO), R1 ; 
51 18 AO 81 0000D CMPW =. 24(RO). RI F 
04 18 00011 BLEQU : 
51 18 Ad 3¢ 00 13 MOVZWL 24(RO), R1 ; 
0200 &F 51 81 17 1$: CMPW ORT, «#512 : 
5 1€ 0001C BGEQU : 
51 0200 BF 3 3 MOVZWL #512, R1 ; 
6 1 Dd 28: VL ORT BLOCKSIZE : 
8 AC p 6 MOVL RAB, R + 1304 
4 Ad OF a PUSHAB 36(R2) : 
4 AE 9F 000 PUSH OCKSIZE ; 
060000006 00 FB 000 CALLS @ LIBSGET_VvM ; 
£8 000 BLB AtUS, : 
000000006 0 81 PB o008e Chere Bl Clesstor Seer 
3 M3 oF 8p s§ 3$: MOVW BLOCKSIZE. 32(R2) : 1307 
5 p 4 MOVL #1, RO : 1309 
4 O004A RET : 1310 


; Routine Size: 75 bytes, Routine Base: S$CODES + OBES 


agence : < 16 | : 
bt=8ho" DIFSGETCMD Process command Line tt ety fi 43: 3 8 oir ore tT Get cho: MD: B35¢4 ; Page 46) 


| 


18-Sep-1984 4 $3: 73:3 AX-11 Bliss-32 V4.0-74 Page 30 


CMD 
sof DIFSGETCMD Process command Line -Sep-1984 DIF .SRCJDIFGETCMD.632; 


1 surat find list_width (fab) = 


Determine the width of the Listing Line 
; FAB is the fab of the open file, gidth. returned in difSgl_width 
MAP 
fab : REF BBLOCK; 
BIND 
: 


namblk = .fab Cfab$l_nam] : BBLOCK; 'NAM block 


LOCAL 
status, 
devnamdesc + B81 OCK Cdsc$c_s_bin], 
devnambuf : “VECTOR spears siairss Syed, 
sc$ e aS¢ } 


dsc$t_s ngth 


MEN —OOONOUE 


devnambufdesc pe. oes 
devinfobuf : BBLOCK gibét te 
devinfodesc : BBLOCK 
devchan; 


LITERAL 
chlescape = 2X ‘1B; ‘ASCII <ESC> 


difSgl_ width = difSc_deflisiz; !Assume default of 80 


devnamdesc(dsc$a_pointer] = .nambik(nam$l_dev vie 
devnamdesc(dsc$w_length) = CHSFIND_CH(.namblkCnam$b_dev) 
.namblkCnam$l_dev), ZASCII °:") 
= ,namblkCnam$l_dev); 
devnambufdesc tasesan length] = nam$c smoxrss: 


PTV waltal alta ahah abeal 
CONAVEWN “OC OONOUE WN OO 


Be Se Se Se Se Ge Se Se Se Se Se Ge Se Se Se Ge Fe Se Se Se Fe Se Se Se Se Se Ge Se Ge Se Ge Se Se Se Ge Se Ge Ge Se Se Ge Se Se Ge Se Se ee Se Se Se Se ae 
a a a et a mt te a ts 4 a st as 2 3 4 __ap — 3 — 4 2d 9 4 bp —s — 4 9 2 
me ah ak a a a a a a ad tk ae et tt a et et 8 ts a et a st a as 4 


8 
9 
? 
§ de yrasmuyesec dsc$a_pointer) = devnambuf 
STRNLOG = devnamdesc, RSLLEN = devnambufdesc, RSL BUF = devnambufdesc); 
: If deynanbut oto} EQL ch_escape 'Check for process permanent file 
§ devnambufdesc fdsc$u. Length] = .devnambufdesc Cdsc$w_length] - 4; 
oe ; devnambufdesc Cdsc$a_pointer] = .devnambufdesc ([dsc$a_pointer] + 4; 
06 ' ‘ 
058 2 : Assign the device and then do a SGETCHN to get the width 
065 2g IF SASSIGN (DEVNAM = devnambufdesc, CHAN = devchan) 
26 5 THEN BEGIN 
06 54 devinfodesc Acti Ts Length) = dibSk length; 'Set up descriptor for SGETCHN 
068 55 or jared gene sc$a_pointer] = devinfobuf; 
069 2$ IF ~devchan, SCDBUF = devinfodes 
070 5 “THEN Moat gl_ gt width = miWuC. devinfobuf (dib$w *Gevbutsiz] dif$c_maxlisiz); 
071 58 SDASSGN (CHAN = .devchan); 'Deassign channel 
Or 59 END; 
07 60 
Bre 1 RETURN true; : 
75 2 END; 'Of find_List_width 


-EXTRN SYSSTRNLOG, SYSSASSIGN 
-EXTRN SYSS$GETCHN, SYSSDASSGN 


H 
5-$ 


137 1 END 
1364 0 ELUDOM 


DIF _GETCMD 15-Sep-1986 23:39: AX-11 Bliss-32 V4.0-74 
Mbe2000 DIFSGETCMD Process command Line 12-8 08=198e 93:39:33 DIF SRE IDIFGETCMD O32, 
000C 00000 FIND_LIST_WIDTH: 
.BORD Seve R2,R3 
3 000000006 00 9 MOVAB DIFSGL_WIDTH, R3 
FE CE MOVAB =400(SP), SP 
4 Ac D VL FAB, RO 
8 A p 1 MOVL  40(RO), R2 
6 8F 9A 0001 MOVZBL #80, DIFS$GL_WIDTH 
FC OAD 44 Ag 0 OO01A MOVL $ CR), DEVRAMDESC +4 
20 39 Ad 9A OOOTF MOV2BL 57(R2). & 
44 B2 A 3A ; Locc }§=—«._«s #58, RO, a68(R2) 
é : BNEQ =«‘1 
D A CLAL_ RI 
FB AD 51 44 A2 Ad 0 1$: SUBW3 68 (82) R1, DEVNAMDESC 
0080 (CE FF ORF OB MOVZBW #255, DEVNAMBUFDESC 
0084 CE 0088 ce E 0 VAB  DEVNAMBUF, DEVNAMBUFDESC+4 
— 7C¢ F CLRQ ss = (SP) 
7E 04 00041 CLRL Os = (SP) 
o0gc CE OF 0043 PUSHAB DEVNAMBUF DESC 
0090 CE 9F 0004 PUSHAB DEVNAMBUF DESC 
FB AD OOF 0048 PUSHAB DEVNAMDE SC 
000000006 00 06 FB O4E CALLS #6, SYSSTRNLO 
18 0088 CE 91 0005 CMPB  ©-dDEVNAMBUF, #2 
OA 12 O005A BNEQ 2$ 
0080 CE 4 A2 0005¢ SUBW2 #4, DEVNAMBUFDESC 
0084 CE 4 ¢ 0061 ADDL2 #4... DEVNAMBUF DESC +4 
E 7C 00066 28: CLRO. = ( 8) 
08 AE 9F 00068 PUSHAB DEV.HAN 
008C CE 9F 00068 PUSHAB DEVNAMBUFDESC 
000000006 99 04 FB O006F CALLS #4, SYSSASSIGN 
9 0 : 00076 BLBC 
04 AE 74 BF 9B 90079 MOVZBW #116, DEVINFODESC 
08 AE OC AE 9E 0075 MOVAB DEVINFOBUF, DEVINFODESC+4 
04 AE 9F 0008 PUSHAB DEVINFODESC 
7E 7¢ 00086 CLRQ = = (SP) 
7E 04 0088 CLRL ss = (SP) 
10 AE DD 0008A PUSHL DEVCHAN 
000000006 00 Q FB 0008D CALLS #5, SYSSGETCHN 
12 0 : 0094 BLBC =«_«aRO. & 
5 12 AE 3¢ 00097 MOVZWL DEVINF OBUF +6, RO 
0084 &F 50 81 000 CMPW ORO, #1 
4 18 OA BLEQU 
59 84 BF 9A OOOA MOVZBL #132, RO 
S 0 00 00 3$: VL -RO, DIFSGL_WIDTH 
6E DD OO0A9 4$: PUSHL VCHAN 
000000006 99 1 FB 00 CALLS #1, SYSSDASSGN 
0 1 p 00B2 5$: VL = #1. RO 
4 0008 RET 
; Routine Size: 182 bytes, Routine Base: $CODE$ + 0C30 


Of module DIFGETCMD 


Pee Se Se Se Se Se Se Se Se Ss SH Be Se Se Se Se Se Be Se Be Be Se Be Se Be Se Se Be Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Be Se 


1357 


1358 


1362 


vouro00 DIFSGETCMD Process command Line 1}-ep-1984 t F3i78:58 | OTe SBSH PGE F cho 853° Page 135 


-EXTRN LIBSSIGNAL, LIBSSTOP 


3 PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 76 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS * NOV Fea ol RD ;NOEXE,NOSHR, LCL. REL, CON,NOPIC,ALIGN(O) 
;  LIBSKEYOS 4 NOVEC.NOWRT, RD; EXE. LCL, REL, CON, PIC,ALIGN(1) 
;  LIBSSTATES 144 WOVEC NOURT RD, EXE, SHR, LCL, REL. CON, PIC.ALIGN(1) 
;  LIBSKEY! 8 NOVEC,NOWRT, RD. EXE, SHR, LCL. REL. CON, PIC-ALIGN(1) 
; SCODES 33 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
; envesese §yabels ecoese== Pages Processing 
5 File Total ioaded Percent Mapped Time 
; ~$ZESEDUARE: SYSLIB)STARLET. “432i 1 9776 131 1 581 90:01 .0 
3: _$255$0UA28:(SYSLIBJTPAMAC.L32 42 23 54 14 0:00.1 
3 COMMAND QUALIFIERS 
$ BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DIFGETCMD/OBJ=OBJ$:DIFGETCMD MSRC$:DIFGETCMD/UPDATE=(ENHS:DIFGETCMD) 
; Size: 3302 code + 894 data bytes 
; Run Time: i ¢ 4 

Elapsed Time 5 


; Lovonee/<Pusnitas 3768 
: Used: 398 pages 


: Time: $33 . 
3 Lines/CPU Min: 27 
: reat hens Complete 


poo 


Aide GHoBTI3A Se ) NT CORPORATION 
| VAX/VMS_V4.0 D_ PROPRIETARY 


